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MSX vs. Alustrad 



Comparamos el sistema MSX 
con otros ordenadores de la 
competencia 



BASIC PLUS 



Segunda parte de un artículo 
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HARD COPY 



Presentamos una cassette 
única para sacar gráficos por 
impresora 
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Editorial 



AHORA LA 
JUSTICIA 

Entre las noticias relacionadas con el 
software MSX ha saltado una que no tie- 
ne nada que ver con la tecnología ni con 
nuevos programas. Al menos por sus ca- 
racterísticas apareció en las páginas de su- 
cesos y no en las de ciencia y tecnología 
de los periódicos. En efecto, dos compa- 
ñías dedicadas a la comercialización de jue- 

Í;os en cassette fueron allanadas en Barce- 
ona, confiscado todo el material y 
detenidos sus integrantes por presunta pi- 
ratería. 

Indudablemente, como es notorio, la 
irrupción de las nuevas tecnologías ha tor- 
nado obsoletas las leyes que regulan la pro- 
piedad intelectual y se hace muy difícil 
controlar el trasiego comercial de los nue- 
vos soportes —vídeo, software para orde- 
nadores, etc.—. Esta situación enrarece 
cada vez más el mercado, haciéndose en 
determinados casos muy difícil establecer 
la legalidad o ilegalidad de los negocios. 
Esta tremenda confusión permite que mu- 
chos se aprovechen de ella y originen ope- 
raciones de varios millones de pesetas que 
inciden en el progreso de las empresas más 
escrupulosas, ya que ellas no pueden com- 
petir con los precios que ofrecen los pri- 
meros debido a los costos de producción. 
Lo único que pueden oponer al abuso es 
su prestigio de marca y la calidad de sus 
productos. 

Pero no sólo son los grandes pescado- 
res quienes ganan en el gran río revuelto 
del comercio de software. También lo ha- 
cen cientos y cientos de pequeños pesca- 
dores, cuyas cifras de facturación llegan a 
ser astronómicas en su conjunto. 

Mientras tanto llega una ley que regule 
con claridad los derechos de autor y la pro- 
piedad intelectual, confiamos en el justo 
criterio de nuestros jueces para paliar el 
tremendo daño que se está cometiendo en 
el campo del software. Claro que no se tra- 
ta únicamente de confiar sólo en la justi- 
cia de los tribunales, a quienes compete 
dictaminar la calidad del delito o su ausen- 
cia, ni en las acciones policiales, sino apor- 
tar nuestra colaboración. Sólo con respe- 
tar el trabajo de los demás es suficiente. 

Manhattan Transfer, S.A. 
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n Respondemos a las inquie- 
| tudes de nuestros lectores y 
a los problemas técnicos 
que se les presentan. 

TABLON DE ANUNCIOS 

Dos inserciones gratuitas 
para compra, venta e inter- 
cambio de software ori- 
ginal. 
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BASIC PLUS (II) 

Segunda parte de un artícu- 
lo que te enseña a obtener 
más pantallas. 

PROGRAMAS 

14 Sbanky 

30 Geografía española 
36 Voyaguer 
38 Sipper 
44 Relieve en 30 
46 Datos elementos quí- 
micos 



HARD COPY 

Un programa en cinta para 
la reproducción de gráficos 
por impresora. 

COMIC 

Aplicaciones gráficas de los 
MSX. 
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MONITOR AL DIA 

Las novedades más impor- 
tantes en el mundo del es- 
tándar MSX. 
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SONIDO PROFESIONAL 
EN TU MSX 

El programa MIDI TRACK 
transforma tu ordenador 
MSX en un verdadero cere- 
bro musical y lo comunica 
con otros instrumentos mu- 
sicales. 



MSX Vs. AMSTRAD 

Comparamos los ordena- 
dores MSX con el Amstrad 
y el Spectrum y exponemos 
las ventajas de nuestro es- 
tándar. 



SECUENCIAS DE ESCAPE 

Instrucciones codificadas 
poco conocidas y de gran 
utilidad para los usuarios. 



INDICE DE PROGRAMAS 

Te ayudamos a localizar to- 
dos nuestros programas 
aparecidos hasta el pre- 



sente. 
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WIDTH80 



Tengo un Spectravideo 738 
X'press, que como sabéis tra- 
baja en 80 columnas si se utili- 
zan los sistemas operativos 
CP/M o MSX DOS. De todos 
modos, a mí me interesaría tra- 
bajar en 80 columnas desde 
BASIC, pero cuando tecleo la 



instrucción 
error 



:ción WIDTH 80 me da 
¿A qué se debe esto? 

Félix Avellaneda (Gijón) 

Lo que sucede es muy lógico. 
Tanto uno como otro sistema 
operativo están preparados para 
trabajar en 80 columnas, mien- 
tras que el BASIC de la primera 



CONTROL DEL CASSETTE 




¿Pueden utilizarse las ins- 
trucciones INP y OUT para 
mandar o leer caracteres del 
cassette? ¿Qué dirección de 
port utiliza el cassette? 

Antonio Rodo 
(Sabadell) 

Efectivamente. El cassette está 
directamente conectado a dos de 
los chips controlables desde los di- 
ferentes ports. Estos dos chips son 
el PSG (encargado de la genera- 
ción de sonidos, la lectura del 
cassette y el control de los joys- 
ticks). La lectura del cassette pue- 
de hacerse controlando el sépti- 
mo bit del port A del PSG. Para 
leer este bit en particular debe- 
rás hacer: 

OUT 160,14:X = INP(162) 
AND 128 

El valor de la variable X será 
128 si en ese momento el casset- 
te enviaba un dato y 0 si no lo 
hacía. 

La escritura en el cassette está 
controlada por otro chip, el PPI, 
siendo esta vez el bit 5 del port 
C del PPI el que hemos de mo- 
dificar para generar una señal 
sobre la cinta. Para poner este bit 
a 1 (grabación) haríamos: 
OUT 170,INP (170) AND 
223 



Por último, para encender y 
parar el motor del cassette utili- 
zamos el BIT 4 del mismo port 
C del PPI. 

Para poner el cassette en mar- 
cha tenemos que poner a 0 este 
bit mediante la instrucción: 
OUT 170, INP(170) AND 
239 

y para parar el cassette debe- 
mos poner a 1 el bit con 
OUT 170, INP(170) OR 16 
Después de todo esto supongo 
que sabrás enviar o recibir BITS 
del cassette. Sin embargo, y esta 
es una mala noticia, la velocidad 
del trabajo del cassette (1200 bits 
por segundo en la velocidad más 
lenta) rebasa en mucho la de tra 
bajo del BASIC, por lo que te 
será imposible llegar a leer pro- 
gramas mediante comandos. Sí 
lo conseguirás si lo intentas en 
ensamblador; pero te advierto 
que los protocolos de comunica- 
ción sobre cassette, siendo de los 
más sencillos son de una extre- 
mada complejidad para el pro- 
fano en la materia. 

Te recomiendo, eso sí, que 
practiques con estas líneas en 
BASIC que he comentado, ya 
que puedes generar efectos muy 
interesantes. Esperamos tus des- 
cubrimientos en este campo. 



generación no contempla esta 
posibilidad. Cuando se carga un 
sistema operativo en disco, se 
reorganiza la memoria ROM 
del ordenador, situándose cada 
sistema operativo en un área di- 
ferente de la memoria. Esto de- 
semboca en que resulta imposi- 
ble acceder a los comandos de 
estos sistemas operativos desde 
BASIC, así como también resul- 
ta imposible realizar el procedi- 
miento a la inversa. 




Recientemente he comprado 
una unidad de disco SONY pa- 
ra mi ordenador y me he en- 
contrado con que los diskettes 
en teoría son de 512 K pero 
formateados quedan en 360. 
He intentado utilizar los discos 
sin formatear para disponer de 
más capacidad de almacena- 
miento, pero cuando lo he in- 
tentado me ha dado error, así 
que he tenido que formatear- 
los. ¿Es esto normal? 

Antonio Mohedano 
(Andújar) 

Efectivamente es lo más normal 
del mundo. La operación de for- 
mateado del disco no es otra co- 
sa que una partición en pistas y 
sectores que efectúa el sistema 
operativo del disco para poder 
saber en cualquier momento 
dónde tiene almacenada la in- 
formación. Por ello, una parte 
importante de la capacidad del 
diskette se emplea en esta opera- 
ción puesto que el sistema opera- 
tivo, además de la división que 
hemos mencionado también ne- 
cesita crear un índice (directorio) 
y una serie de divisiones inter- 
nas para poder acceder sin pér- 
dida de tiempo a la información 
requerida. 

IMPORTACION PARALELA 

Hace poco me compré un or- 
denador CANON V20 MSX, 
pero cual no sería mi sorpresa 
al darme cuenta de que el ma- 
nual de instrucciones y el de 
BASIC venían ambos en in- 
glés. Considero que es un de- 
talle de muy mal gusto comer- 
cializar en España un aparato 
con el manual en un idioma ex- 




tranjero. ¿Es posible encontrar 
una versión en castellano? 

Lucio Puértolas (Algeciras) 

No eches la culpa de que el ma- 
nual no venga traducido al dis- 
tribuidor oficial de CANON. 
Lo que sucede, es que posible- 
mente tu ordenador no proven- 
ga del importador oficial (que te 
garantizamos que se suministra 
con un completísimo manual en 
castellano) sino de un importa- 
dor paralelo, con lo que no sólo 
te vas a encontrar con ese pro- 
blema, puesto que lógicamente 
no podrás reclamar al distribui- 
dor oficial. 



CORRECCIONES A PHANTOM 

Sascha Ylla-Kónneke, autor 

del proerama PHANTOM 

aparecido en el n.° 19 de 

MSX-CLUB nos remitió las 

siguientes correcciones al 

mismo: 

4310 IF CE=1 

AND STRIG(Z)=-1 THEN 

GOSUB 4400 

720 CLS: LOCATE 10,10: 
PRINT "PLAYER 1 
READY": FOR 1 = 0 to 1000: 
NEXT 

730 ON STOP GOSUB 
5430: STOP ON 
740 GOTO 920 




LENGUAJES MSX 



Hemos recibido numerosas 
cartas preguntándonos sobre 
los diferentes lenguajes de pro- 
gramación que se pueden uti- 
lizar sobre los MSX. 

Vamos a intentar responder 
a todas vuestras dudas sobre 
este tema, incluyendo una lis- 
ta de todos los lenguajes del 
MSX. 

Como todos sabéis el lengua- 
je propio del MSX es el BASIC 
MSX; pero mediante progra- 
mas en cinta, disco o cartucho, 
podemos utilizar un gran nú- 
mero de lenguajes. 

Estos son los diferentes len- 
guajes que se encuentran en el 
mercado español: 

-ENSAMBLADOR: Exis- 
ten numerosos ensambladores y 
desensambladores que os permi- 
tirán realizar todo tipo de pro- 
gramas en este lenguaje. Los pre- 
cios de estos programas oscilan 
entre 2.400 y 15.000 Ptas. 

-PASCAL y TURBO 
PASCAL: Varias versiones de 
este popular lenguaje de progra- 
mación se encuentran en el mer- 
cado. Citamos TURBO PAS- 
CAL (Dynadata y SVI), 
PASCAL 80(Ivesón), PASCAL 
(Sony) y TURBO PASCAL 
(Borland ITL). Sus precios osci- 
lan entre las 4.400 y las 
35.000 Ptas. 

—LOGO: Este divertido len- 
guaje también se encuentra en el 
mercado en diversas versiones. 
Cabe citar LOGO (Idealogic), 
MINILOGO y MSX LOGO 
(Philips), oscilando sus precios en- 
tre las 2.000 y las 12.500 Ptas. 

-FORTRAN: Este lenguaje 
eminentemente matemático 
también tiene cabida dentro del 
mundo de los MSX. Citemos Ne- 
vada FORTRAN (Dynadata y 
SVI) y FORTRAN (Sony), cuyos 
precios se sitúan entre las 9. 900 1 
y las 35.000 Ptas. 
' -COBOL: Dos diferentes 



versiones de este lenguaje se en- 
cuentran en nuestro mercado: 
Nevada COBOL (Dynadata y 
SVI) y COBOL (Sony). Sus pre- 
cios, entre 9.900 y 35.000 Ptas. 

— C: Este lenguaje, que se está 
«poniendo de moda» entre los 
programadores profesionales 
combina la simplicidad con una 
elevadísima velocidad. Los siste- 
mas operativos de los modernos 
ordenadores (el equivalente a la 
R OM BIOS del MSX) se progra- 
man en C. De nuevo encontra- 
mos dos versiones en el merca- 
do español: C (Ivesón) y BDS 
lenguaje C(Sony). Sus precios es- 
tán entre las 15.500 y las 
45.000 Ptas. 

— FORTH: Este lenguaje, 
que ganó bastante popularidad 
hace pocos años está distribuido 
por SVI España. Su precio es de 
9.800 Ptas. (la versión de casset- 
te) y 10. 900 la versión de disco. 

— PILOT: Este lenguaje, poco 
conocido por los profanos se en- 
cuentra también entre lós utili- 
zables con un MSX. Su nombre, 
Pilot Nevada. Está distribuido 
por S VI España y su precio es de 
9. 900 Ptas. (versión disco). 

Estos son pues, todos los len- 
guajes de programación utiliza- 
bles con vuestros MSX: pero su 
número aumenta rápidamente, 
y no creemos que tarden en apa- 
recer versiones para MSX de 
otros muchos lenguajes. 

Para una mayor información 
sobre estctema os remitimos al 
ESPECIAL SOFTWARE de 
nuestra revista, aparecido el pa- 
sado mes de Septiembre. En el 
encontraréis, dentro del aparta- 
do de UTILIDADES y APLI- 
CA CIONES un listado comple- 
to de todas las versiones de los 
diferentes lenguajes, coñ'su pre- 
cio y las empresas que los distri- 
buyen, para que os sea fácil su lo- 
calización. 



GRABACION DE PROGRAMAS 
Y LISTADOS EN 
ENSAMBLADOR 

—{Qué diferencia hay entre 
grabar un programa con 
SAVE a grabarlo con CSAVE? 
—¿Cuál es la instrucción para 
listar un programa en código 
máquina? 

J. Antonio Morales Asensio 
Lorca (Murcia) 

Tu primera pregunta tiene 
una respuesta que precisa cono- 
cer cómo se almacenan los pro- 
gramas en BASIC en la memo- 
ria del ordenador. Para ello te 
remito al número 23 de nuestra 
revista hermana MSX EXTRA, 
aparecido el pasado mes de Oc- 
tubre, que incluía un completo 
estudio de los tokens del BASIC. 

I 



NTERPKETE BASIC 




En resumen te puedo decir que 
cada palabra del BASIC 
(PRINT, INPUT, IF, ...) se alma- 
cena en memoria como un có- 
digo numérico. Al hacer CSA- 
VE lo que se graban en la cinta 
son estos códigos de las instruc- 
ciones, es decir, el programa co- 
dificado, mientras que si grabas 
el programa con SA VE éste se 
graba carácter a carácter. Esto 
hace que la grabación sea sensi- 
blemente más lenta; pero permi- 
te otras muchas ventajas. Un 
programa grabado en A SCII (es 
decir, carácter a carácter) puede 
ser fundido con otros (mediante 
la instrucción MERGE) o ejecu- 
tado directamente, haciendo 
RUN «cas:...» si sustituyes los 
puntos por el nombre del progra- 



ma grabado en la cinta en for- 
mato ASCII. 

Tu segunda pregunta tiene 
una respuesta aún más sencilla. 
No hay ninguna instrucción que 
permita listar programas en en- 
samblador. Para ello precisas de 
un programa especial, encarga- 
do de este proceso, llamado DE- 
SENSAMBLADOR. 



MAYUSCULAS Y MINUSCULAS 

¿Cómo se puede hacer que la 
tecla de CAPS SHIFT se en- 
cienda y apague mediante un 
programa? 

José Manuel Cereijo 
La Coruña 

El LED que nos indica el esta- 
do de la tecla CAPSLOCK está 
controlado por el puerto C del 
chip PPI(el Intel 8255 A). El sex- 
to bit de este puerto indica el es- 
tado del LED: 0= ENCENDI- 
DO; 7= APAGA DO. 

En la mayoría de los ordena- 
dores MSX el puerto C del PPI 
se encuentra en el port 170 
(&HAA en hexadecimal). Para 
encender el LED no hay más que 
poner a cero ese bit determina- 
do. Para ello, utilizando el BA- 
SIC haríamos: OUT 170, INP 
(170) AND 191 (para entender 
enteramente esta línea deberías 
conocer lo que es una máscara 
binaria y otros aspectos que no 
nos es posible detallar en esta sec- 
ción.) 

Para apagar el LED haríamos 
OUT 170, INP (170) OR 64. 

Si lo quieres apagar o encender 
indistintamente puedes utilizar 
la línea OUT 170, INP (170) 
XOR 64. 

Si programas en ensamblador 
puedes utilizar la rutina situa- 
da en la dirección &H132 de la 
ROM del BASIC Para ello en- 
samblarías las siguientes líneas. 
LD A,l 
CALL 0132H 
RET para apagar el LED y 

CALL0132H 

RET para encenderlo. 

Si lo que quieres es cambiar de 
modo minúsculas a mayúsculas 
o viceversa sin que se tenga que 
apretar la tecla CAPS SHIFT 
puedes hacerlo con: 
POKE &HFCAB,255 para 
pasar a mayúsculas y 
POKE &HFCAB,0 para pa- 
sar a minúsculas. 
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SISTEMA OPERATIVO 

Tengo un HIT-BIT 75 P y qui- 
siera saber si mi ordenador dis- 
pone de sistema operativo. 
También tengo entendido de 

3ue a mi ordenador se le pue- 
e ampliar la memoria con una 
BEE CARD ¿se comercializan 
en España? 

Juan Navas (Guipúzcoa) 



Naturalmente, tu ordenador, co- 
mo todos, dispone de un sistema 
operativo puesto que si no, no 
podrías hacer naaa con él. En 
cuanto a las BEE CARD, efecti- 
vamente existe una versión que 
permite ampliar la memoria de 
tu ordenador hasta 256 K, pero 
desgraciadamente no se comer- 
cializa por el momento en Es- 
paña. 



AMSTRAD 



¿Qué ventajas y desventajas 
hay entre los MSX y los AMS- 
TRAD?, ya que sólo dicen que 
los MSX xon mejores que los 
SPECTRUM y los COMMO- 



ESPECIAL SOFTWARE 

PRECISIONES / CORRECCIONES 



En nuestro número ESPE- 
CIAL SOFTWARE por un 
error de información apareció 
un precio incorrecto en el soft- 
ware de la casa SERMA. Di- 
chos precios de venta al públi- 
co son los siguientes: 

BOXEO Crt. 5.200 

CIRCUS CHARLIE 

Crt. 5.200 

COMIC BAKERY 

Crt. 5.200 



5.200 
5.200 




FUTBOL Crt. 
HYPER RALLY Crt. 
HYPER SPORT I 
Crt. 

HYPER SPORT II 
Crt. 

HYPER SPORT III 
Crt. 

JET SET WILLY 
Tarj. 

KONAMI'S GOLF 
Crt. 

KONAMI'S TENNIS 
Crt. 

LE MANS Tarj. 
PING PONG Crt. 
ROAD FIGHTER 
Crt. 

SAMANTHA FOX 
Cass. 

SKY JAGUAR Crt. 
STAR FORCE Tarj. 
SUPER COBRA Crt 
TIME PILOT Crt. 
YIE AR KUNG FU 
Crt. 

YIE AR KUNG FU II 
Crt. 5.200 
QUINIELA FUTBOL 
Tarj 8.800 
QUÍNIELA HIPICA 
Tarj. 8.800 



5.200 

5.200 

5.200 

5.100 

5.200 

5.200 
5.100 
5.200 

5.200 

1.900 
5.200 
5.100 
. 5.200 
5.200 

5.200 



DORE, pero de los AMS- 
TRAD ni palabra, ¿Es que aca- 
so son mejores que los MSX de 
la primera generación. 

J. López (Barcelona) 

No te precipites. En este mismo 
número incluimos un análisis 
comparativo entre MSX y AMS- 
TRAD para que no digas. 



Les escribo para preguntarles 
que tipo de trabajos, con video, 
puede realizar la salida analó- 
gica RGB y qué ordenadores 
MSX tienen dicha salida. 

Jesús Corrales Ruiz. Erendio 
(Vizcaya) 

La salida RGB es una salida de 
video compuesto que sirve para 
grabar imágenes sobre cinta de 
video. Las iniciales RGB corres- 
ponden a los nombres de los co- 
lores básicos utilizados por los 
aparatos de televisión en inglés; 
es decir Red, Green and Blue; es 
decir Rojo, Verde y Azul. 
Todos los ordenadores MSX de 
la segunda generación llevan in- 
corporada esta salida, y algunos 
de la primera como pueden ser 
el HTT BIT 75P de SONY o el 
Pioneer. 



DISCOVERY INFORMATE 

La casa Discovery Informatic 
está domiciliada en la calle 
Arco Iris, 75 - 08032 Barcelo- 
na y su teléfono es el 
v 93) 256 49 08/09. 



VAMPERE. Ayuda al audaz Guillermo a salir 
del castillo del Vampiro, sorteando murcié- 
lagos, fantasmas, etc. Un Juego terrorífica- 
mente entretenido para que lo pases de mie- 
do. PVP. 800 Pts. 




C0PY 

POR JOAQUIN LOPEZ 

Menú* por ventana* tr«!» 
formato» (le copla» n mutación 
•n blaneo y negro copla 
aprtte* rertff inr colores 
compatible con cualquier 
impresora matrlcial 



CON GARANTIA 

AWHAIIAN TRANSA 



HARD CCPY. Para copiar pantallas. Tres 
formatos de copias, simulación por blanco y 
negro, copla sprites, redefinlc. de colores, 
compatible con todas las impresoras ma- 
trie. FVP. 2.500 Pts. 
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KRYPTON. La batalla mas audaz de las gala- 
xias en cuatro pantallas y cuatro niveles de 
dificultad. Un juego cuya popularidad es cada 
vez mas grande entre los usuarios del MSX 
PVP 500Ptas. 



El secreto de la 




r 




EL SECRETO DE LA PIRAMIDE. Atrevido 
juego de aventuras a través de los misterios 
y peligros que encierran los laberínticos pa- 
sillos de una pirámide egipcia. ¡Atrévete si 
puedes! PVP. 700 Ptas. 



QUINIELAS 



~0m 



■^^£<^ON GARANDA 



U-BOOT. Sensacional juego de simulación 
submarina en la que tienes que demostrar tu 
pericia como capitán de un poderoso subma- 
rino de guerra. Panel de mandos, sonar, tor- 
pedos, etc. PVP 700 Ptas. 



CON GARANTIA ' 



QUINIELAS El mas completo programa de 
quinielas con estadística de la liga, de los 
aciertos, etc e impresión de boletos. Acertar 
no siempre es cuesüon de suerte. PVP 700 
Ptas 




SNAKE Entretenido y muy divertido juego 
en el que Snake procura comer unos núme- 
ros que la engordan. Tanto las murallas que 
la rodean como su larga cola pueden ser 
mortales para ella PVP 600 Ptas 




STAR RUNNER. Conviértete en el audaz 
piloto Interestelar y lucha a muerte, a 
través del hiperespacio, contra las defen- 
sas del tirano Daums. Dos pantallas y 
cinco niveles de dificultad. PVP. 1.000 pts. 



FLOPPY. El Preguntón Un verdadero desafio 
a tus conocimientos de Geografía e Historia 
española Floppy no perdona y te costara 
mucho superarlo PVP 1000 Ptas. 



CdN GARANTIA 

HATmTRANSFff?SA 



MAD FOX. Un héroe solitario es lanzado a 
una carrera a vida o muerte por un desierto 
plagado de peligros. Conseguir el combusti- 
ble para sobrevivir es su misión Diez niveles 
de dificultad PVP 1000 pts 



81 quieres recibir por correo certificado estas cassettes garantizadas recorta o copia este boletín y envíalo hoy mismo: 




□ KRYPTON Ptas. 500- 

I □ UBOOT Ptas. 700- 

I □ QUINIELAS Ptas. 700- 

□ HARDCOPY Ptasí5«0- 

|oastos de envió certificado por cada cassette 



□ SNAKE Ptas. 600- 

□ EL SECRETO DE LA PIRAMIDE Ptas. 700- 

□ STARRUNNER Ptas. 1.000- 



□ FLOPPY PVP. 1.000 Ptas. 

□ MAD FOX PVP. 1.000 Ptas. 

□ VAMPIRO PVP. 800 Ptas 



Ptas. 70,- Remito talón bancario de Ptas a la orden de Manhattan Transfer, S A 



ATENCION: Los suscriptores tienen un descuento del 10% sobre el precio de cada cassette. 
IMPORTANTE: Indicar en el sobre MSX CLUB DE CASSETTES. ROCA I BATLLE, 10-12 BAJOS. 08023 BARCELONA 



Para evitar demor; 



"es. 



NUESTRAS CASSETTES NO SE VENDEN EN QUIOSCOS. LA UNICA FORMA DE ADQUIRIRLAS ES SOLICITANDOLAS 

A NUESTRA REDACCION. ¡NO SE ADMITE CONTRA REEMBOLSO! 



Tablón de anuncios i 




Esta sección de MSX CLUB es de nuestros lectores. Todos ellos tienen derecho a dos inserciones totalmente gratuitas. Las carac- 
terísticas de esta sección no permiten la inclusión de anuncios con fines de lucro. Advertimos que la desprotección y copia de 
software original es un acto delictivo perseguido por la ley. 



LOS 
ANUNCIANTES 
DE ESTA 
JECCION 
Insistimos. El objetivo 
de esta sección es el de 
comunicar a nuestros 
lectores entre sí, pero 
no hacer publicidad me- 
tódica y gratuita de 
quienes se valen de la 
buena fe de esta redac- 
ción. A raíz de nume- 
rosas cartas recibidas 
denunciando un co- 
mercio subterráneo de 
cintas de juego copia- 
das ¡legalmente, nos ve- 
mos obligados a no pu- 
blicar aquellos anun- 
cios que no especifiquen 
claramente qué se ofre- 
ce y qué se requiere pa- 
ra efectuar los inter- 
cambios. 



Cambio cartucho ampliación de 
16K de Sony y cartucho de juego 
Z«Konami's Soccer, por cartucho 
de ampliación de 64 K, preferible 
de Sony. Alberto Alaiz Casas. 
Avda. José Quintana, s/n. Sadaña 
- 34100 PALENCIA - Tel. 
(988) 89 01 91. CP1. 
Contacto con poseedor de impre- 
sora para realizar listados. Pagaré. 
Anna Vilaseca. C/. Vell, n? 24. 
Santa Creu de Joglars - 08519 



BARCELONA - Tel. 888 00 12. 
CP1. 

Cambio tres programas en cartu- 
cho (Flight Path 737, Super Soc- 
cer y Super Cobra, y dos en cinta 
(Ghost Busters y B.C. Grogs), ade- 
más de un Quickshot 1 1 por Map 
de Mitsubishi o Logo Philips. Ca- 
yetano Andreu Laurindo. C/. 
Ocaña, n? 5. El Ejido - 04700 AL- 
MERIA. CPl. 

Intercambio juegos. Poseo entre 
otros: King Lore, Gungfrit, Zax- 
xon. David Pacheco Díaz. C/. 
Fray Pedro Vives, n? 17, pta. 5 - 
Tel. (96) 365 57 77. CPl. 
Intercambio programas, mapas y 
poques de juegos sin fin económi- 
co. Enviar lista. Pedro Luis Mu- 
ñoz Rosa. C/. Jubilados y Pensio- 
nistas, n? 3. Montilla - 
CORDOBA. CPl. 
Vendo Philips VG-8020 (80K), 
menos de un año, completo. 5 cin- 
tas originales y otra con 10 juegos. 
Todo por 40.000 ptas. Pedro Pé- 
rez. C/. Ant. Machado, 19, 8?. El- 
che - ALICANTE. CPl. 
Vendo Spectravideo SVQ-328 
80K, cassette SV 1-904, Quick Shot 
1, 12 cintas de gestión y juegos, 
fuente alimentación y manual cas- 
tellano, 37.000 Ptas. Cristóbal 
García Rodríguez. Avda. Europa, 
n? 134, 4?, 1. a - Tel. (93) 336 63 32. 
Hospitalet de Llobregat. BARCE- 
LONA. CPl. 

Cambio más de 50 programas por 
un cartucho de ampliación de 64K. 
Fernando Alvarez Reguant. Avda. 
Sta. Bárbara, n? 41 - 08260 Suria. 
BARCELONA. CPl. 
Intercambio juegos MSX tales 
como «Panorama para matar» (1. a 
y 2. a parte), Athletic Land, «Oh 
Shit», por otros. Claudio Vellve 



Espiga. C/. Gral. Mola, n? 29, 4?, 
drcha. BURGOS. Tel. 
(947) 26 67 94. 

Vendo ordenador Philips msx- 
VG 8000 con amplificador de me- 
moria de 16 K c/ (poco uso). Re- 
galo más de 30 juegos comerciales 
y libros. Juan M. a Gorrotxategui. 
C/. Guipúzcoa, 15, 4? C - 20240 
Ordizia. GUIPUZCOA. Tel. 
(943) 88 54 74. 

Vendo Spectravideo SVI-328 con 
cassette, joystick Quickshot I, per- 
fecto estado, buen precio. Llamar 
al teléfono (926) 42 49 76 o escri- 
bir a C/. Hospital, n? 6, bajo A. 
Puertollano - CIUDAD REAL. 
CPl. 

Contacto usuarios o interesados 
que posean software para la trans- 
misión y recepción de CW- 
RTTY. Alejandro García. Avda. 
Hilario Ruiz, 46. 15621 Cabañas 
- LA CORUÑA. CPl. 
Compro a buen precio (de 5 a 
8.000 ptas.), ampliación de 64K. 
También vendo HB 16 de Sony, 
precio a convenir (entre 2 y 5.000 
ptas). Dispongo de juegos que 
cambio o vendo. Pedro García 
Caro. C/. Carlos III, n? 17, 4? B. 
30201 Cartagena - MURCIA. Tel. 
(968) 52 02 02. CPl. 
Vendo Sony-HBF-500P (MSXl 1), 
completo, nuevo, incluidos ma- 
nuales y sistema operativo 
(MSX 1 1-DISKETTE), sólo proxi- 
midades de mi población — 
130.000 Ptas.-. José Luis Baste- 
rretxea Barroso. C/. Iturribide, n? 
12, 2?, drcha. Betxo - BISKAIA. 
Tel. 469 43 63 (de 2 a 4). CPl. 
Contacto c/. Club MSX - 
aseguro respuesta — . Interesados 
escribir a José García Selgaz. C/. 
Niño Jesús, bloque 5, portal 3, ba- 



jos A. Arganda del Rey - MA- 
DRID. CPl. 

Vendo Karate, Space Walk, Labe- 
rinto 3 D y Les Flics por 700 Ptas. 
También un selector de antena y 
un curso de Basic —MSX en 
video—. Antonio Montero Batllé. 
Ciudad Cooperativa, 49, 5?, 2. a . 
Sant Boi - BARCELONA. Tel. 
652 16 94. CPl. 

Vendo HIT-BIT-75 SONY (ma- 
nuales conexiones Software origi- 
nal) y unidad de disco 3.5". Ofer- 
tas: José Búa. Aptdo. 78. Boiro - 
15931 LA CORUÑA. CPl. 
Contacto Club LSD PRINTER. 
Intercambio de software e infor- 
mación sobre sistema MSX. Todo 
sobre Hardware. Apdo. 2093. 
MURCA. CPl. 

Compro cartucho de ampliación 
de memoria Sony o cualquier otra 
marca, de ampliación a 64 K, por 
8.000 ptas. Rubén Parera Roura. 
Rambla, 12, 4?, 2. a . Mongat. Tel. 
384 40 49. CPl. 

Compro ampliación de 64K. Os- 
car Marina Saiz. C/. Andalucía, n? 
2, 3?. Tel. 490 00 19. Baracaldo - 
Bizkaia. CPl. 

Deseo conseguir ordenador, uni- 
dad de discos y demás periféricos 
MSX, nuevos o usados. Espero 
ofertas. A. Dávila. Apdo. 274. 
45600 Talavera - TOLEDO. CPl . 
Vendo Toshiba H X-10, cartucho 
Logo Philips y grabadora. Tam- 
bién programas, libros y revistas 
Todo a 45.000 ptas. Avda. Caste- 
lao, Bl. 112, 12? B. Vigo, 9. CPl. 
Vendo Spectravideo SVl 904, 
Joystyck Quickshot 11, libro de 
programación avanzada, juegos, 
cintas de Intro al Basic, 13 boleti- 
nes de Club ISIS, manuales en in- 
glés y castellano. Sólo 39.000 ptas. 




ENTRA EN LA AVENTURA 
CORRE A TODA PASTILLA 
CON 
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Txutxki. Tel. (94) 467 13 84. CPl. 
Compro cartucho ampliación de 
48 ó 64 K, precio a convenir. Luis 
Benedicto Qurol. C/. Campoa- 
mor, n? 45, 2?, 2. a . Hospitalet - 
BARNA. Tel. 335 05 70. CPl. 
Vendo cartucho Track & Field II 
por 3.900; juegos y programas edu- 
cativos a precios económicos. Es- 
cribir a Dimas Ramírez Juan. Pla- 
za de San Roque, n? 16-18, 6?, 2. a . 
Badalona - BARNA. Tel. 
398 15 40. CPl. 

Vendor ordenador MSX, HIT, 
BIT 101 con ampliación de memo- 
ria 64K por 27.000 ptas. Antonio. 
Tel. (93)652 16 94. CPl. 
Cambio por otro juego o compro 
programas que simulen la sintonía 
de las películas de 007 James Bond. 
Miguel Borrego. C/. Abad Raci- 
mir, 11. Olot - Girona. CPl. 
Vendo Sony HB 75P de 80K, li- 
bros, programas comerciales por 
30.000 ptas. Venancio Bidasoro. 
C/. Harzubia, 9, 3?. Azpeitia - 
GUIPUZCOA. Tel. 81 25 06. 
CPl. 

Compro ampliación de 16 K o 64 
K por 4.000 ptas. más 60 juegos a 
cart., entre ellos: yier Ar Kunfu I 
y n, Trac & Field I y II, Atletic 
Land y Circus Charlie. Gonzalo 
Márquez Benitez. C/. Ntra. Sra. 
Merced, s/n. (CP. Aljoxani) - Tel. 
25 83 48. CP2. 

Contacto con usuarios del MSX 
para formar un club. José C. de la 
Fuente. C/. Gran Capitán, 3-5, 2? 
drcha. SALAMANCA. CP2. 
Vendo Hit Bit HB-55P con am- 
pliación de memoria a 32K y 30 
juegos comerciales y manuales. 
Todo por 30.000. Luis Marcos Gi- 
ménez. C/. Diputación, n? 5, 8?. 
Silla - VALENCIA. Tel. 
(96) 120 21 58. CP2. 
Intercambio instrucciones de pro- 
gramas: juegos, gestión y educati- 
vos. Miguel A. M. Emaldi. C/. La- 
bairu, n? 11, 2?, izq. Baracaldo - 
48902 VIZCAYA. CP2. 
Vendo ordenador Sony HB 55 P 
en impecable estado, precio a con- 
venir. Juan Gómez. Tel. 
388 89 08. BARCELONA. CP2. 
Vendo 20 juegos MSX: Hiper 
Sports 1, Yie Ar Kung Fu 1, Night 
Shade, Elidor Soccer, etc., por sólo 
5.000 ptas. Juan Enrique Forcada. 
C/. La Carrera, n? 2, 5? - Burria- 
na. CASTELLON. CP2. 

Intercambio órgano Casio Tone 
MT-65 nuevo por ordenador 
MSX y también intercambio jue- 
gos. José Camboa. Tel. 
(93) 437 23 65. CP2. 
Cambio manuales (referencia y 
usuario) MSX y juegos por 
ampliación-monitor color 20 pulg. 
por unidad de disco o impresora. 
También intercambio juegos en 
cinta o cart. Luis Abillira. FÜal, n? 
4, 9? Poyo - PONTEVEDRA. 
CP2. 



Vendo 

8.000 con cassette computore pro- 
gramas originales, libros y revis- 
tas. Todo 24.000 ptas. Alfonso 
Montoya. Tel. 43 16 17. Albox - 
ALMERIA. CP2. 
Vendo ordenador Sony HB-55P 
con ampliación de memoria de 
16K cartucho de Road Fighter y 
60 juegos de cintas por 25.000 ptas. 
Juan Antonio Plaza Villar. C/. 
Santa María, 6. Tel. 
(953)776 00 05. Torreperogil - 
23320 JAEN. CP2. 
Cambio cartucho YIE AR 
KUNGFU II o 40 juegos origina- 
les por otro cartucho como BO- 
XING o HIPER RALLY. MA- 
NOLO. Tel. (954) 63 21 94. CP2. 
Vendo Data Recorder COMPU- 
TONE en buen estado, poco uso 
por 5.000 ptas. Tiene led indica- 
dor, save, contador de vuekas, co- 
nector para micrófono, cascos y 
remote. También posee una entra- 
da estándar dim. Gonzalo Már- 
quez Benitez. C/. Ntra. Sra. Mer- 
ced, s/n. (Aljoxani). Tel. 25 83 48. 
CP2. 

Compro manual de Logo PHI- 
LIPS en cartucho. GUSTAVO 
CELA. C/. Poeta Cabanillas, n? 
10, 12 piso, 3?, izq. 27004 LUGO. 
Tel. 21 67 93. CP2. 
Vendo 60 interesantes juegos en 
cartucho más COPY (2 por 4.000) 
o bien los cambio por: cart. origi- 
nal (LOGO PHILIPS), cart. de 
ampliación 16 ó 64K, 2 Joystick, 
cart. original (Champ) Micro 
Byte, Libro consejos y trucos de 
DATA BECKER. Gonzalo Már- 
quez Benitez. C/. Ntra. Sra. Mer- 
ced, s/n. (CP. Aljoxani). CP2. 
Vendo Mitsubishi 80K modelo 
ML-FK2 con 4 programas incor- 
porados en el ordenador Base de 
datos, Procesador de textos, Cál- 
culo electrónico, Creación de grá- 
ficos, con todo sus elementos y 
cinta de demostración. Regalo cas- 
sette de juegos de marca. Precio a 
convenir. Preguntar por Yon. Tel. 
(943) 39 63 36. San Sebastián. 
CP2. 

Cambio Mitsubishi MSX-Ml- 
FXl con teclado numérico 80K 
RAm, con todos los elementos y 
16 juegos comerciales, más joys- 
tick mas Data-cassette por un PHI- 
LIPS, o por un HIT-BIT, o bien 
por un DIN ADATA que tenga la 
misma memoria. Roberto López 
Rodríguez. C/. Juan XXIII, n? 1. 
27500 Chantada - LUGO. Tel. 
(982) 44 00 10. CP2. 
Cambio (DIP METER LEADER 
LDM 815) por Spectrum 48K. Re- 
galaría ordenador Ohio Scientific 
CPU 6502. - Luis. Apart. 111-Es- 
parraguera CP 08080. CP2. 
Vendo cartucho Soccer por 3.000 
ptas. Floren González Fuentes. 
C/ Alto Alday. N? l-4. a Izqda. 
48500. San S " 
kaia). CP2. 




¡Haz saltar la pulga hasta 
lo más alto y podras ganar 
hasta 125.000 pts. en pre- 
mios! 

MSX CLUB DE PRO- 
GRAMAS y MIND GA- 
MES ESPAÑA, S.A. te des- 
afían a que juegues con Boo- 
ga Boo y ganes. Booga Boo 
es una simpática pulga salta- 
rina que cierto día cae a las 
profundidades de una cueva 
habitada por un peligroso 
dragón y plantas carnívoras. 
Tú, no solo tienes que sor- 
tear estos obstáculos, sino 
llevar a Booga Boo a la su- 
perficie superando los 80 ni- 
veles de que consta el juego 
y logrando la máxima pun- 
tuación. ¿Te animas? 

Bases 

1. Para participar remítenos: 

a) Una fotografía de la últi- 
ma pantalla de Booga Boo. 

b) Una fotografía del ta- 
blero de puntuación con tu 
nombre en el primer lugar. 

c) Al dorso de ambas fotos 
coloca tu nombre, direc- 
ción, teléfono y el número 
de referencia de Mind Ga- 
mes España, S.A., editor 
autorizado de Booga Boo 
en versión MSX para Es- 
paña, que figura en la cará- 
tula original. 

2. El ganador será el que 
obtenga mavor puntuación. 

3. En caso de naber más de un 
concursante con la máxima 
puntuación, el ganador se 
sorteará entre ellos. 

4. El premio al ganador con- 
sistirá en 125.000 pts. en 
software de Mind Games 
España S.A. y material di- 
dáctico de informática MSX. 



5. Todos los concursantes re- 
cibirán un regalo por su 
participación. 

6. El concurso caduca el día 
30 de noviembre de 1986. 

7. Quedan excluidos de parti- 
cipar en este concurso los 
empleados, agentes y fami- 
liares de los mismos de Quick- 
silva Ltd., Argus Specialist 
Publications, Alabaster Pass- 
more & Sons, Mind Games 
España, S.A., Ivex Films, 
S.A. y Manhattan Transfer, 
S.A. 

8. La participación implica la 
aceptación de las presentes 
reglas. 

9. Las decisiones de MSX 
CLUB DE PROGRAMAS 
serán inapelables y no se 
mantendrá corresponden- 
cia con los concursantes. 

10. Remite el sobre a: 

MSX CLUB DE 
PROGRAMAS 
CONCURSO 
BOOGA BOO 
Roca i Batlle 10-12 
Barcelona 08023 



¡¡GANA 125.000 pts.!! 







■ 
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MSX BASIC PLUS (II 








Por Willy MiragalL 



INFORMACION 
TECNICA 




Vamos a continuación a profun- 
dizar en el funcionamiento de la 
ampliación del BASIC de la que 
hemos estado tratando. 



En primer lugar recordaremos some- 
ramente los contenidos y funciones 
de las tablas del VDP. Como sabéis 
por otros artículos aparecidos en esta re- 
vista, la pantalla esta controlada por un 
chip especializado, el VDP (Video Dis- 
play Processor). Este chip tiene una zona 
de memoria RAM propia, separada de la 
RAM normal del usuario. Esta zona es la 
que llamamos VRAM o RAM de video. 
El chip, para controlar los 16 Kb de 
VRAM con que cuenta utiliza unos regis- 
tros que, simplificándolo mucho, pode- 
mos decir que son como variables propias 
a cada chip. Según estos registros se orde- 
na la VRAM en diferentes zonas. 

Observad la tabla 1; en ella se muestra 
la configuración de la VRAM en 
SCREEN 0, tanto en BASIC normal, 
como en el BASIC ampliado. Para la ges- 
tión de la pantalla de textos, el VDP pre- 
cisa de dos zonas bien diferenciadas. Una 
es la TNP, tabla de los números de los pa- 
trones. Es esta tabla la que utiliza el VDP 
para saber qué es lo que hay en la panta- 
lla. Una secuencia de números en esta ta- 
bla corresponde a una secuencia de carac- 
teres en la pantalla. La otra tabla es la 
TGP, tabla generadora de los patrones. 
Los patrones, o caracteres, son cada una 
de las letras que aparecen en la pantalla. 
Vamos a seguir el proceso paso a paso. 

Cuando en la TNP el VDP (no os liéis 
con tantas siglas) encuentra un 65 (código 
de la 'A'), busca en la TGP cuál es la for- 
ma de ese carácter. En la TGP se encuen- 
tra el dibujo en binario del carácter que 
debe aparecer en la pantalla. Si modifica- 
mos la TGP los caracteres cambian de for- 
ma, mientras que si modificamos la TNP 
cambiamos los textos que hay en la pan- 
talla. Es precisamente esto último lo que 
hace el ordenador para imprimir un tex- 
to en la pantalla. 

Con la instrucción — USO(x), lo que ha- 
cemos es modificar la palabra (conjunto 
de 2 bytes) situada en la dirección # F922, 

3ue contiene la dirección de la VRAM 
onde está la TNP. Al cambiar esta direc- 
ción el ordenador cree que la TNP cam- 
bia de posición, por lo que desvía sus tex- 
tos a esa nueva dirección. Aunque estemos 
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viendo una pantalla, el ordenador escribirá 
en otra distinta. 

En cambio, con la instrucción- VEO(x), 
lo que hacemos es modificar uno de los 
registros del VDP, con lo que aparecerán 
ante nuestros ojos los caracteres almace- 
nados en otra zona de memoria. 

En el BASIC PLUS, redistribuimos las 
tablas del VDP, con lo que conseguimos 
aprovechar al máximo la memoria dispo- 
nible. 

Tal vez encontréis la explicación hasta 
ahora un poco complicada; pero os que- 
dará mucho más clara si consultáis algún 
artículo dedicado a las tablas del VDP o 
cualquier libro especializado en el MSX. 

El proceso seguido en el SCREEN 1 es 
idéntico; pero debemos contar con precau- 
ciones adicionales. Aquí entran en juego 
tres nuevas tablas a las que debemos reser- 
var un espacio: la tabla de color, que con- 
tiene los códigos de color de los caracte- 
res, la tabla generadora de los sprites (con 
su diseño en binario) y la tabla de atribu- 
tos de los sprites, con datos sobre posición, 
c< " 



En SCREEN 2 el proceso seguido es 
bien diferente. Si observáis cualquier ma- 
nual del MSX en que aparezcan las tablas 
del VDP observaréis que en SCREEN 2 no 
quedan más que 128 bytes libres. Si pen- 
samos que una pantalla gráfica requiere, 
como mínimo 12 Kb, resulta problemá- 
tica la instalación de una segunda panta- 
lla de gráficos. 

Hemos creído interesante incluir una 
pantalla de texto en SCREEN 2, de for- 
ma que podamos poner un texto de pre- 
sentación mientras se realizan los dibujos 
para luego pasar instantáneamente a la 
pantalla de gráficos. 

Para ello lo que hacemos es pasar de 
SCREEN 2 a SCREEN 0 sin borrar los 
contenidos de la VRAM (no como hace 
el BASIC normal), por lo que podemos 
mantener ambas pantallas simultáneamen- 
te. Este cambio de SCREEN se consigue 
con una sencilla rutina en ensamblador 
que modifica los registros del VDP (po- 
déis incluso hacerla en BASIC si domináis 
la función VDP). 



hacer que el BASIC admitiese o anulase 
las instrucciones gráficas (LINE, DRAW, 
PSET,...) dependiendo de la pantalla que 
usemos. Recordad que seguimos en 
SCREEN 2 aunque veamos una pantalla 
de texto, ya que hemos modificado los re- 
gistros del VDP sin indicarle nada al BA- 
SIC, que ignora los cambios realizados. 

Este problema lo solucionamos fácil- 
mente pokeando en la dirección # FCAF, 
que contiene el modo de pantalla. Probad- 
lo vosotros. Si hacéis: 
10 SCREEN 0 
20 POKE &HFCAF, 2 
30 LINE (100,100)-(150,150), 15, BF 
40 POKE &HFCAF,0 
50END 

¿Que no pasa nada? No a simple vista. 
Al decirle al ordenador que estamos en 
SCREEN 2 (aunque realmente seguimos 
en SCREEN 0), permite que realicemos 
el dibujo. Si pudiésemos pasar a SCREEN 
2 sin borrar la pantalla, podríamos ver el 
dibujo realizado. Es esto, y poco más, lo 
que realizan los comandos _USO(x) y 
_VEO(x). 



LISTADO DE PROGRAMA, 
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V *** XSX BASIC PLUS v.1.1 *** V 
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V Comandos: _USO<x> y _VEO(x> V 
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Realizado por V. Mlragall 

2-Sept-1986 

<c> W. Mlragall y MSX CLUB 
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*** CARGADOR DEL ENSAMBLADOR *** 



FOR X=«HED00 TO AHF015 
READ AS 

POKE X, VAL("»H"+AS> 
NEXT X 



*** GRABACION DEL PROGRAMA *** 



SCREEN 0: KEY OFF: VI DTH 40 

FRINT "Pulse PLAY & RECORD en el cassette' 

PRINT "y ENTER para comenzar a grabar. . ."; 

A*=INPUT»<1> 

1F A$OCHRS(13) THEN 43 

BSAVE "CAS: PLUS" , &HED00 , 4HF0 15 



*** SALTO AL BASIC PLUS *** 



CLS: DEF USR=4HED00 : A-USR (0) 

' XVVVWVVVVVVVVVVVVVVWVVWWWY 



V 3 DATAS DEL ENSAMBLADOR ■ V 

V ==~r -==r¡ 1 y 

V V 



60 ' 

61 DATA F3, DB. A8, 32. 15. F0, E6, F3 

62 DATA 47, E6. 30. CB. 3F. CB, 3F. B0 

63 DATA 32. 14, F0. D3, A8, 21, 23. ED 

64 DATA 11, 0, 40, 1 . 10. 0, ED, B0 

65 DATA C3, 0,0, 41, 42, 61, EF, 33 

66 DATA ED ,0,0,0,0,0,0,0 

67 DATA 0, 0, 0, E5, 21 , 59, EF, 11 
Oa • DATA 89, FD, 1A. BE, 20, 7, 23, 13 
69 DATA B7.28, 16, 18. F5, 21,50, EF 
Vrt DATA 11.89. PD, 1A. BE, 20. 7, 23 

71 DATA 13. B7.28, IB. 18, F5, B1.37 

72 DATA C9, 21, 71 . ED, 3A, B0, FC, 3C 

73 DATA FB.3,28.4,3A.AF,FC.3C 

74 DATA 47. 23. 23, 23. 10, FB. B9, 21 

75 DATA 7D.ED, 18 , E8, C3. 9C, BD, C3 

76 DATA C4 , ED, C3, 44, BE, C3, 66, EE 

77 DATA C3. 8C, ED, C3, B4, ED, C3, DC 

78 DATA ED. C3.66, BE, Bl, CD, AC, BE 

79 DATA CD, C2. EE, CB, 27, CB, 27. 32 

80 DATA 23. F9, A7. C9, El, CD, AC. EE 

81 DATA CD.C2.BE,47,B.2,F5,CD 

82 DATA 47,0,F1.CB.27,CB,27,32 

83 DATA B4, F3, A7, C9, El, CD, AC, EE 

84 DATA CD, CF, BE, CB, 27, CB, 27, 32 

85 DATA 23, P9, A7, C9, Bl , CD, AC, BE 

86 DATA CD, CF, BE, 47, B. 2, F5, CD 

87 DATA 47, 0, Fl. CB, 27, CB, 27, 32 

88 DATA BE, F3, A7, C9, El. CD. AC, EE 

89 DATA 22, BC, BF. B7, 28. 39, 3D, 28 

90 DATA 5, IB. 5, C3, 6F. 40, AF, 32 

91 DATA AF, FC, 3E, 2, 32. B0, PC, 3E 

92 DATA 1C, 32. 23, F9. CD. 4D. EF, 21 

93 DATA 0.48, 11,0, 1C. 1.C0.3 

94 DATA CD.5C,0,21. BF, IB. 11, 0 

95 DATA 38, 1,0,8, CD.5C.0.CD 

96 DATA 53, BF. 2A, BC, BF. A7. C9, 3E 

97 DATA 2. 32. AF. FC. AF. 32. B0. FC 

98 DATA 3E, 8, 32, 23, F9, CD, 4D. EF 

99 DATA 21,0. 1C. 11.0,48. 1.C0 

100 DATA 3. CD. 59, 0, CD, 53, BF, 2A 

101 DATA BC, BF, A7, C9, Bl , CD, AC, BE 

102 DATA 22, BC, BF, B7, 28, 8. 3D. 28 

103 DATA D, IB, 5, C3. 6P, 40, CD, 24 

104 DATA EF. 2A. BC. BP, A7, C9, CD, DC 

105 DATA EE.2A.BC.EF,A7,C9.B1.CD 

106 DATA AC.EB. 1E, 5. FE. 8. P2, 6F 

107 DATA 40, 22, BC, BF, F5, CD, 4D, EF- 

108 DATA 3A, BE, EF.CD. A0, EB, BB, 21 
.0.6. 
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Fl, 32, BB, EF, C», A», EE, 11 

0. 0. 1.0.6, CD, 5C, 0 

CD, 53, EF, 2A. BC, BF, A7, C9 
3C, 47, 3E, 4A, C6, 6. 10, PC 
67, 2B, 0, C9, DD, Bl , 3E, 28 
BB, C2, 55, 40. 23, CD, 1C, 52 
3E, 29, BB, C2, 55, 40, 23, 7B 
DD, E9, DD, El , 1E.5.FE.E 
P2. 6P. 40, 3C, 3C, DD, B9, DD 
El, 1E.5.PE,B,P2,0P,40 
C6.5. DD, B9, DD.21, DF. F3 
DD.46, l.CB, E0.CB, 98, E 

1, CD. 47,0, DD, 46, 0,CB 
88, B, 0. CD, 47, 0, 3A, E9 
F3, CB, 27, CB, 27, CB, 27, CB 
27, 21. EA, P3, 86, 47, B, 7 
CD,47.0,3E, 1C,32,B4,F3 
3B.38,32,B8.P3.6.7,B 

2, CD, 47, 0, 6. 7. E, 4 

CD, 47, 0, C9, DD, 21 , DF, P3 
DD, 46, 1, CB, A0, CB, 98, B 
1,CD,47.0,DD,40,0.CB 
C8.B.0,CD.47,0,6,6 
E,2,CD,47,0,6,3,B 
4, CD, 47, 0, C9, 3A. 14, F0 
D3 , A8 . C9 , 3A , 15 , P0 , D3 , A8 
C9. 56, 45, 4F, 0, 55, 53, 4F 
0.21,8C,BF. 11,B3,F3. 1 
28, 0, BD. B0, 21. BF. BF. 7B 
B7.28, 4, DF, 23, 18,F8,6 
A.C5, 1,0,0,B,78,B1 
20, FB, Cl, 10, F4. 0, 0. 0 
®,0,0,C9,0,8,0,0 
0,0,0,0,0,0,0, 14 
0, 17,0,0.0, 10,0,8 
0, 18, 0, 20, 0, 0, 0, IB 
0, 38, 0,8,0,0,0,0 
0, IB, 0, 38, 18, 10, IB. 20 
30 , 28 , 34 . 38 , 0 , 0 , 0 , 7 
A. A, D, 20, 20, 20, 20, 20 
20.20. 20. 41, 6D. 70.6C.69 
61. 63. 69, A2, 6E, 20, 31, 2E 
3 1 . A , A . D, 20 , 20 . 20 , 20 
43, 6F, 6D. 61 , 6E, 64, 6F, 73 
3A, 20. 5F, 55, 53, 4F, 20. 79 
20. 5F, 56, 45, 4F, A, A. D 
20 . 20 , 28 . 63 , 29 , 20 . 57 , 2E 
4D.69,72.61,67.61.6C,6C 
20, 79, 20, 4D. 53, 58, 20, 43 



MSX BASIC PLUS (II). 








En SCREEN 3, por razones de como- 
didad y limitaciones del VDP, adoptamos 
otro sistema. En este modo de pantalla te- 
nemos zonas libres; pero es mucho 



difícil redistribuir las tablas adecuadamen- 
te (no como en SCREEN 0 y SCREEN 1 
, muy fácil), por lo que 
la zona de RAM que 



INSTRUCCIONES 
DE CARGA 



Para poder hacer uso de las ampliacio- 
nes del BASIC, seguid paso a paso las si- 
guientes instrucciones de carga. 

En primer lugar entrad el listado en BA- 
SIC del programa. Tened cuidado con las 
inacabables líneas DATA, ya que un solo 
fallo puede hacer que el programa no fun- 
cione. Acordaos siempre, antes de ejecu- 
tar el programa, de verificarlo. 

Una vez estéis seguros de que el listado 
está entrado correctamente, proceded a 
ejecutarlo. Tras escribir la palabra mági- 
ca 'RUN', el ordenador comenzará a in- 
troducir los datos en las posiciones de me- 
moria adecuadas y tras esto os indicará: 
Pulsa PLAY & RECORD en el casset- 
te y ENTER para comenzar a grabar... 

Ante este mensaje, introducid una cin- 
ta virgen en vuestro cassette y preparaos 
para grabar el programa en ensamblador. 
Pulsáis PLAY & RECORD en el casset- 
te y luego ENTER (o RETURN) en vues- 
tro ordenador. 

Cuando acabe de grabarse en programa, 



el ordenador hará un RESET (parecerá 
apagarse y encenderse de nuevo). No os 
preocupéis, ya que esto es necesario para 
que se amplié el BASIC. Ya podéis comen- 
zar a programar. 

Otras veces que queráis utilizar el BA- 
SIC ampliado, sólo tendréis que introdu- 
cir la cinta que acabamos de grabar, teclear 
BLOAD "CAS:" R y esperar a que car- 
gue el programa. 

Una última recomendación: para salva- 
guardar el programa en ensamblador que 
permite la ampliación del BASIC, os re- 
comiendo que hagáis siempre que progra- 
méis con la ampliación BASIC, el siguien- 
te CLEAR al comienzo de todos vuestros 
programas: 

CLEAR 200, &HECFF 

El 200 podéis cambiarlo según las nece- 
sidades de memoria de vuestro programa; 
pero no así el segundo término: 
&HECFF. 



destinamos a la simulación del cartucho 
de ROM (recordad la primera parte de este 
artículo). Es en esta zona donde almace- 
naremos las diferentes pantallas del 
SCREEN 3. Pasar de una a otra no es ta- 
rea difícil, ya que contamos con una ruti- 
na del sistema operativo que nos permite 
copiar un bloque de memoria de la RAM 
a la VRAM. 

Esta rutina, para los que gustéis de la 
programación en ensamblador está sita en 
la dirección # 5C. He aquí un listado de 
cómo utilizarla: 

LD HL, dirección de inicio del buffer 
en RAM 

LD DE, destino de la VRAM 

LD BC, longitud del bloque a copiar 

CALL # 5C 

También incluímos la rutina contraria, 
es decir, la que pasa de VRAM a RAM: 
LD HL, dirección de inicio en la VRAM 
LD DE, destino en la RAM 
LD BC, longitud del bloque a copiar 
CALL #59 

Como podréis comprender, esta confi- 
guración de las múltiples pantallas en 
RAM y no en VRAM no nos permite ver 
una pantalla mientras se dibuja en otra, ya 
que siempre dibujamos en la VRAM, y ve- 
mos los dibujos de la VRAM. 

Estamos seguros de que sabréis sacarles 
el máximo provecho a estos dos nuevos 
comandos de vuestro BASIC. Mirad la ta- 
bla 1 y recordad: si quiere colocar una 'A' 
en la esquina superior izquierda de la pan- 
talla 7 (en SCREEN 0) deberéis hacer: 
VPOKE 9216,65 

mientras que VPOKE 9217,66 coloca- 
rá una 'B' a la derecha de la 'A'. Eso es 



¡¡¡SONÓ LA FLAUTA!!! 




LANZAMOS 




La primera revista de Compact Disc de España 
COMPACTA Y DIFERENTE 

Totalmente pensada para los usuarios de CD, un concepto 
revolucionario en la reproducción del sonido. 
Toma nota de nuestro sumario 

- CD - La pureza del sonido 

- CD - Interactivo 

- CD-ROM 

- GUIA COMPLETA DE APARATOS COMPACT DISC 

- COMPLETO CATALOGO DE DISCOS 
Música clásica y jazz 

- LOS 50 CLASICOS IMPRESCINDIBLES 

- LOS «TWENTY POPS» 




NO ES CASUALIDAD 

Otro producto de Manhattan Transfer, 



Programa 



Por Enrique I. Graziano 

- 



SBANKY 



Debes conducir a SBANKY has- 
ta la base más alta, corriendo y sal- 
tando por sus dos pantallas. 



INSTRUCCIONES 

Se trata de un juego de dos pantallas 
en las que SBANKY debe llegar a la base 
mas alta para sobrevivir. Debe hacer 
esto antes de que el fantasma acabe con 
él. 

En la primera pantalla utilizará el ju- 
gador tres posiciones del cursor para co- 
rrer y saltar. En la segunda además uti- 
lizará el disparador para colocar las 
distintas bases a su altura para poder 
subir. 



VARIABLES 

X, Y coordenadas del sprite de 
SBANKY 

BX, BY coordenadas del fantasma 
SG, SF sentido en movimiento del fan- 
tasma en horizontal y vertical 
respectivamente 



N sentido de marcha horizontal 
de SBANKY 

G simulación de gravedad para 
SBANKY 

SP elección de sprite derecha o iz- 
quierda de SBANKY 



lf tmttmmmimmmttmtm 

21 '$ t 

31 I SBANKY t 

41 'I t 

si ' itmmm tmtttttmtmtmm 

b% SCREEN2, 2 : CL£AR6M : COLOR 1 v 1 5 f 1 S : CLS : 0 

PEN'6RP:'AS#1:FD=1 

71 6OSUB4480 

80 60SUB82Í 

90 COLOR 2, 1,1: CLS 

1N 0NFD60SUB6f 1,721 

110 ' INICIALIZACION 

120 PRESET (16,11): PRIHTil , "000" : PTM0 
130 PUTSPRITE0, (164,164), 4,3:X*164:Y=164 
:6«4:SFM:S6«10:Y1M20:Y2*Y1:Y3*Y2:Y4*Y3 
:Y5«Y2iBX»U9:BY«4 

140 LINE ( 1 17, 4) - ( 133, 20) , 2, BF: SPRITEON 
130 N«li6*0t6OTO21f 

160 'ttttSttBUCLE PRINCIPALtlItltttlttl 

170 Z=STICK(0):PUTSPRITE0,(X,Y),4,3*SP 

180 ' SALTO 

190 IFP0INT(X*6,Y*16)»1THENY«Y-1 

200 IFZ*1THEN6«4:6OTO210ELSE280 

210 X=X- li.mil Y=Y-6: 6=6-. 3: IF6<0THENS= 

2ELSES*0 

220 IFX<10THENX*250 

230 IFX>250THENX*10 

240 IFP0INT(X*8,Y)*lTHEN6*-7 

250 PUTSPRITE0, ( X, Y) , 4, S+SP: 1FP0INT ( X+8, 

Y*18)«1ANDPOINT(X*9,Y*18)«1THEN260ELSE21 

0 



260 PUTSPRITE0,(X,Y),4,1*SP:FORI*0TO20:S 
OUND8,13:SOUND0,0:SOUNDl,I!5:SOUND7,tBU 
101U0:NEXTiPUTSPRITE0,(X,Y),4,3+SP¡SOUN 
D8,0 

270 ' CARRERA 

280 IFZ= 7 THENSP=0: N> 1 : 6OTO300ELSE290 
290 IFZ=3THENSP=7 : M*- 1 : 6OTO300ELSE340 
300 X»X-(4tN):PUTSPRITE0,(X,Y),4,5*SP:FO 
RI=0TO5:NEXT 

310 IFX>255THENX»0ELSEIFX<0THENX=255 
320 X*X-<4tN):PUTSPRITE0,(X,Y>,4,6*SP:X* 
X-(4IN):PUTSPR1TE0,(X,Y),4,5*SP:IFPOINT( 
X*8 f Y+18X >1 ANDP01NT ( X*9 f Y*18)< >1THENG»« 
:6OTO210 

330 » BASES 

340 IFFDO2THEN6OTO490 

350 IFSTRI6(0)THENPUTSPRITE0,(X-4,Y),4,4 

♦SP ELSE480 

360 IFSP=0THEN430 

370 IFX>«0ANDX<22THENLINE(31,Y1)-(59,Y1* 
5),15,BF:LINE(3l,Y+8)-(59,Y*13),l,BF:Yl= 
Y*8 

380 IFX>=22ANDX<52THENLINE(61,Y2)-(99,Y2 
♦5),15,BF:LINE(61,Y*8)-(99,Y*13),1,BF:Y2 
=Y+8 

390 IFX>=52ANDX<92THENLINE ( 101 , Y3) - ( 149, 
Y3*5),15,BF:LINE(10i,Y*8)-(149,Y*13),l,B 
F:Y3=Y*8 

* 400 IFX >«92ANDX< 142THEHLINE ( 151 , Y4) - ( 189 
,Y4*5),15,BF:LINE(151,Y+'8)-(189,Y*13),l, 
BF:Y4*Y*8 

410 IFX>» 142AHDX< 1B2THENL1NE < 191 , Y5) - (21 

9,Y5*5),15,BF:LINE(191,Y*8>-(219,Y*13),1 

,BF:Y5=Y*8 

420 IFSPO0THEN480 

430 IFX >=52ANDX< 92THENL INE ( 3 1 , Y i ) - ( 59 , Y 1 
♦5),15,BF:L1NE(31,Y*8)-(59,Y*13),1,BF:Y1 
■Y*B 

440 I F X > = 9 2 A ND X < 1 42THENL I NE ( 6 1 , Y2) - (99, Y 
2*5),15,BF:LINE(6l,Y*8)-(99,Y*13),l,BFjY 
2-Y+8 

450 I F X >= 1 42 AND X < 182THENLINE ( 101 , Y3) - ( 14 
9,Y3*5),15,BF:LINE(101,Y*8)-(149,Y*13),1 
,BF:Y3*Y*8 

460 IFX>*182AN0X<212THENLINE ( 151, Y4) - ( IB 
9,Y4*5),15,BF:LINE(151,Y*8)-(189,Y*13),1 



FD número de pantalla 

PT puntuación y borrado de vidas 

2 variable de espera o contador 

(FORI=TQ) 
PA, PM puntuación presente y máxima 
Yl, Y2, Y3, Y4, Y 5 posición de las bases 



,BF:Y4=Y*B 

470 PUTSPRITE0, ( X, Y) , 4, 3*SP: SOUNDB, 0 

480 1 FANTASMA 

490 PUTSPRITE3, (BX, BY) , 2, 24: BX*BX* (S6IRN 
D (-TIHE) > : BY-BY+ (SFtRND (-TIHE) ) 
500 I FBX >24§0RBX < 90RBY > IBfORB Y< - 1 iTHENBX 
s 119:BYMrBEEP 
510 IFX<BXTHENS6*-6ELSES6-6 
520 S0UND1 SOUNDB, 12: S0UND6, 3: AA= (flBS ( 
BX-X)*ABS(BY-Y))/2:SOUND0,AA*10 
530 IFY<BYTHENSF=-4ELSESF s 4 
540 IFRND (TIME) > . 8THENSF=2+SFELSESF=5F-2 
550 ONSPRITE6OSUB580 
560 '—LINEA 550=LINEA DE LLEGADA A BAS 
E— 

570 IFY<25ANDX>100ANDX<150THEN4380ELSE17 
0 

580 SOUNDB, 15: S0UND7, 7: S0UND1 , 15: SOUND0, 
100iFORI«1TQ100íSOUND6,I:NEXTiSOUND8,0 



14 




590 PUTSPRITE0,(X,Y),8,33:FORI=0TO1000:N 
EXT: SPRITEOFF: PUTSPRITE3, ( 1 25, 4) , 2, 24: PT 
=PT-B:LINE(PT, 11 ) - <PT+8, 19) , 15,BF:BX=125 
:BY=4:SPRITE0N: IFPT=16THEN445#ELSE17« 

600 ' FONDOl 

610 LINE(0,5)-(260,180),15,BF 
620 LINE(100,0)-(150,10),15,BF 
630 LINE(0,120)-(200,125),1,BF 

640 LINE(230,120)-(260,125),l,BF 
650 LINE(100,30)-(150,35),1,BF 
660 LINE(80,150)-(260,155),1,BF 
670 LINE(0,150)-(50,155),1,BF 
680 LINE(0,90)-(120,95),1,BF 
690 LINE(150,90)-(260,95),1,BF 
700 LINE«0,60)-<80,65),1,BF 

710 LINE(110,60)-(260,65),1,BF:RETURN 

720 1 F0ND02 

730 LINE(0,5)-(260,180),15,BF 
740 LINE'100,0)-(150,10),15,BF 
750 LINE(30,18i)-(30,50),2 
760 LINE(60,180)-(60,50),2 
770 LINE(100,30)-(150,35),1,BF 
780 LINE(100,50>-(100,180),2 
790 LINE(150,50)-(150,1B0),2 
800 LINE(190,50)-<190,180),2 
810 LINE(220,50)-(220,180),2:RETURN 

821 ' SPRITES 

830 FQRIMT016 

641 READAI 

851 BI=BI*CHRI ( VAL CltB"+LEFT$(A$,B) ) ) 
860 C$=C$+CHR$(VAL("W+RI6HT$(A$,8))) 
870 NEXTI 



# AM 



M 




880 SPRITE*(0)=B$tC$ 
890 DATAf00ff0 01 10000000 
900 DATA0000001001000000 
910 DATA000000100100I000 
920 DATA00000001 10000000 
930 DATA0ffff0f0U00ff0f 
940 DATA0000000010100000 
950 DATA00ff000010010f00 
960 DATA00000000110010I0 
970 DATA00000000010000I0 
980 DATA0000000001000000 
990 DATA000000000 1 100000 
1000 DATA0000000000100000 
1010 DATA00000000I0100000 
1020 DATA0000000000010000 
1030 DATA0000000000010000 
1040 DATA0000000000010000 
1150 F0RI=1T016 
1060 READAI 

1070 D$=D$*CHR$ ( VAL ( " fcB ■ +LEFTÍ ( Af, B ) ) ) 
1080 EI*EI*CHRI(VAL('IB'*RI6HTI(AI,8))) 
1090 NEXTI 

1100 SPRITEI(2)=DI*EI 
1110 DATA0000000 11 0000000 
1120 OATA0000001001001000 
1130 DATA000000100101000I 
1140 DATA00000001 10100000 
1150 DATA00000000 11000000 
1160 DATA0000000010000000 
1170 DATA0000000010000000 
1180 DATA00000001 10000000 
1190 DATA0000000100000000 
1200 DATA0000000100000000 
1210 DATA0000001 100000000 
1220 OATA0000001000000000 
1230 DATA000000 1000000000 
1241 DATA0000010000000000 
1250 DATA0000010000000000 
1260 DATA0000010000000000 
1270 F0RMT016 
1280 READAI 

1290 FI»FI+CHRI(VAL('*B'*LEFTI(AI,8))) 
1 300 6MGI+CHRI ( VAL ( ■«'♦RI6HTI < Al, 8) ) ) 
1310 NEXTI 

1321 SPRITEI(i)«FI*6l 
1330 DATA0000000000000000 
1340 DAT A0 0000 00 00 0000000 
1350 DATA0000000000000000 
1360 DATA0000000000000000 
1370 DATA0000000U0000000 
1380 DATA0000001001000000 
1390 DATA0000001001000000 
1400 DATA00000001 10000000 
1410 DATA000000001 1000000 
1421 DATA0000000010100000 
1430 DATA000000001 1010000 
1441 DATA0000000011001000 
1450 DATA0000011111000000 
14éf DATAMM1 1 1MMIMM 



1470 DATA000f001U000#000 
1480 DATA00000001 10000000 

1490 F0RI=1T016 
1500 READAI 

1510 HI«HI*CHRI(VAL('*B'*LEFTI(AI,8)>) 
1520 II=II*CHRI(VAL('«'*RI6HTI(AI,8))) 
1531 NEXTI 

1541 SPRITEK3 )«HI*II 
1550 DATAI0000001 10000000 
1560 DATA000000100100000I 
1570 DATA0000001001000000 
1581 DATA0000000U0000000 
1590 DATA0000000010000000 
1601 DATA0000000010000000 
1610 DATA00000000110000M 
1620 DATA000000001 1000000 
1630 DATA00000000101000H 
1641 DATA000f0M010100000 
1650 DATAff0Mf0010MI000 
1660 DATA0000000010000000 
1670 DATAM00f000100M00f 
1680 DATAf#0ff 001 1 00 N0f f 
1690 DATAff0000001MM0f0 
1701 DATA0000 
1710 F0RI«1T016 
1720 READAI 

1730 LI»H*CHRI(VALCH'*LEFTI(AI,8))) 
1 740 HI=HI*CHRI ( VAL ( 'H'*RI6HTI < Al, 8) ) ) 
1750 NEXTI 

1760 SPRITEK 4)*LI*HI 
1770 DATA0000000110000000 
1780 DATA0000011001000000 
1790 DATAI000001001000000 
1800 DATA00000001 10000000 
1610 DATAf f 1 lililí 1000000 
1820 DATA0000000010100000 
1830 DATA0000000100010000 
1840 DATA0000000100010000 
1850 DATA11 111 11 100000000 
1860 DATA0000000100000000 
1870 DATA0000000 100000000 
1880 DATA0000000100000000 
1890 DATA000011 
1900 DAT 
1910 DATA0000000000000000 
1920 DATA0000000000000000 
1930 F0RI=1T016 
1940 READAI 

1950 JI-JI*CHRI(VAL('M'*LEFTI(AI,8))) 
1 960 KI*KI*CHRI ( VAL ( '«'♦RI6HTI (Al, 8) ) ) 
1970 NEXTI 

1980 SPRITEI(5)*JI*KI 
1990 DATA0000000U0000000 
2000 0 AT A000000 1 00 1 000000 
2010 DATA0000001001000000 
2020 DATA00000001 10000000 
2030 DATA0000000011000000 
2041 DATA0000000010100000 
2050 DATA0000000010010000 



Programa 



«1* |f 1|0«i-«. I. I 1« O CW n|[i« , »«.|.|) 




-IU»ip». 1.1.. ^4,íi»rHLi *"¡ 



DATAfffffffllfllffff 
2171 DATA000M00U0010000 

.... t\ATAillAllt II lililí ■ 
¿rol? un I n'tltll 1 v 1 ffí'íílJ" 

2090 DATA0000000101000000 
2111 DATA0000000100100000 
2111 DATA0000001000011100 
2120 DATA0000001000000000 
2131 DATA0000001000000000 
214f DATA0000001 000000000 
2151 F0RI*IT016 
2160 READAI 

2170 NI=NI*CHRI ( VAL CfcB'+LEFTKAI, 8) ) ) 
2 180 0$*0t+CHRt (VAL ( "fcB"+RI6HT$ (A$,8) ) ) 
2190 NEXT1 

2200 SPRITEI(6)=NI*0I 
2210 DATA00000001 10000000 
2220 DATA0000001001000000 
2230 DATA0000001001000000 
2240 DATA00000001 10000000 
2250 DATA0000000010000000 
2260 DATA0000000010000000 
2270 DATA0000000010000000 
2280 DATA00I000I0 10000000 
2290 DATA0000000 11 0000000 
2300 DATA0000001010000000 
2310 DATA0000010010000000 
2320 DATA000000111U00000 
2330 DATA000000000 1000000 
2340 DATA0000000000100000 

•)T*I nATAIIIIIIIIIIII lili 
¿■jjv Un ( nVvvvvvvvVvv 1 VVVV 

2360 DATA0000000000010000 

2370 FQRIMT016 
2380 READAI 

2390 RI»RH-CHRI ( VAL ( " IB " +LEFTI ( Al , 8) ) ) 
2400 SMSI+CHRI (VAL ( 'W+RIGHTI ( Al, 8) ) I 
2410 NEXTI 

2420 SPRITEI(33)=RI*SI 

2430 Mmmmmmm 

2440 DATA0000000000000000 
2450 DATA0000000000000000 
2460 DATA0000000000000000 

"lita t\ a t hanaaaa Aaaaaaaaaii 
1*11 un I HvVVVvvVvvVVvVVvV 

2480 DATA000000000Í000000 
2490 DATA0000000000000000 
2500 DATA0000000000000100 
2510 DATA0000000000001U0 
2520 DATA0000000000000100 

¿Jjv un I HvvvvvVvvVvVvv 1 Vv 

2540 DATA0000000000000000 

2550 DATA0U0000000000000 

2560 DATA1001000000000000 

2570 DATA1001000000000001 

2580 DATA01101111111111U 

2590 F0RMT016 

2600 READAI 

2610 fll«QI*CHRI ( VAL ( "«B'*LEFTI ( Al, 8) ) ) 



2620 PI'PI+CHRI (VAL ( "IB'*RIGHT$(A$,8) ) 
2630 NEXTI 

2640 SPRITEI(7)*QI+PI 
2650 DATA0000000U0000000 
2660 DATA0000001N1000000 
2670 DATA0000001001000000 
2680 DAT A0000000 110000000 
2690 DATA0000001 100000000 
2700 DATA0000010100000000 
2710 DATA0000100100000000 
2720 DATA0001001 100000000 

07tá nATAáfladJi i ññáéMñññé 

L I -Jv Un I nwVwvVV IvwvvvvvvV 

2740 DATA0000001000000000 
2750 DATA000001 1000000000 
2760 DATA00000 10000000000 
2770 DATA0000010000000000 
2780 DATA0000100000000000 

íliw UH I Hllll 1 llllllllllf 

2800 DATA0000100000000000 

2810 F0RIMT016 
2820 READAI 

2830 TI=TI+CHRI ( VAL ( 'IB'+LEFTKAI, 8) ) ) 
2840 UI=UI*CHRI ( VAL ( ' W+RISHTI ( Al, 8) ) 
2850 NEXTI 

2860 SPRITEI(9)=TI+UI 
2870 DATA0000000U0000000 
2880 DATA0001001001000000 
2890 DATA0000101001000000 
2900 DATA0000010110000000 
2910 DAT A000000 1100000000 
2920 DATA0000000100000000 
2930 DATA0000000100000000 

oaja nATAIIIIIIIHIIIIIII 

2950 DATA0000000010000000 
2960 DATA0000000010000000 
2970 DAT A00000000 1 1 000000 
2980 DATA0000000001000000 
2990 DATA0000000001000000 

7111 ItATAIIif fililí liilil 

3010 DATA0000000000100000 
3020 DATA0000000000100000 
3030 F0RIMT016 
3040 READAI 

3050 Vl= VI+CHRI ( VAL ( ' ttB'+LEFTI ( Al , 8 ) ) ) 
3060 NI'HI+CHR! ( VAL ( 'IB'+RIGHT$ (Al, 8) ) ) 
3070 NEXTI 

3080 SPRITEI(8)=VI*NI 

3100 DATA0000000000000000 
3110 DATA0000000000000000 

TI 91 nATAIIIIIIIIIIIIIIAI 

3130 DATA0000000 110000000 
3140 DATA0000001001000000 
3150 DATA0000001001000000 
3160 DATA00000001 10000000 
3170 DATA0000001100000000 



3180 DATA0000010100000000 
3190 DATA0000101 100000000 
3200 DAT A000 100 1100000000 
3210 DATA00000011U100000 
3220 DATA0000000001 110000 
3230 DATA000000011 1000000 
3240 DATA00000001 10000000 
3250 F0RMT016 
3260 READAI 

3270 XI«XI+CHRI ( VAL ( 'fcB'+LEFTI ( Al, 8) ) ) 
3280 YI=YI+CHRI(VALC«"+RI6HTI(AI,8))) 
3290 NEXTI 

3300 SPRITEI(10)=XI+YI 
3310 DATA0000000U0000000 
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3320 mmummmm 
333f mmwmmmm 

3340 DAT A0000000 110000000 
3350 DATA0000000100000000 
3360 DATA0000000100000000 
3370 DATA0000001 100000000 
3380 DATA0000001 100000000 
3390 DATA0000010100000000 
3400 DATA0000010100000000 
3410 DATA0000000100000000 
3420 DATA0000000100000000 
3430 DATA0000000100000000 
3440 DATA0000000100000000 
3450 DATA0000000100000000 
3460 DATA0000000100000000 
3470 F0RIMT016 
3480 READAS 



ü 



ti. 













V 

V 









3490 Z$=Z$+CHR$(VALf&B"+LEFT$(A$,8))) 
3500 AAI s AA$*CHR$(VAL ( 'kB'+RIGHTI ( Al, 8) ) 

) 

3510 NEXTI 

3520 SPRITEt(ll)*Zt+AAt 
3530 DATA00000001 10000000 
3540 DATA0000001001000000 
3550 DATA0000001001000000 
3560 DATA0000000 11 0000000 
3570 DATA0000001111111000 
3580 DATA0000010100000000 
3590 DATA0000100010000000 
3600 DATA0000100010000000 
3610 DATA0000000011111111 
3620 DATA0000000010000000 
3630 DATA0000000010000000 
3640 DATA0000000010000000 
3650 DATA0000000001 110000 
3660 DATA0000000000000000 
3670 DATA0000000000000000 
3680 DATA0000000000000000 
3690 FDRI= 1TQ16 
3700 F0RI=1TQ16 
3710 RE ADA* 

3720 BB$*BB$+CHR$ ( VAL ( ' W *LEFH ( Al, 8 ) ) ) 

3730 CC$=CC$*CHR$(VAL('IB'*RI6HT$(A$,8)) 

) 

3740 NEXTI 

3750 SPRITE$(12)=BB$*CC$ 
3760 DATA00000001 10000000 
3770 DATA0000001001000000 
3780 DATA0000001001000000 
3790 DATA00000001 10000000 
3800 DATA0000001 100000000 
3610 DATA0000010100000000 
3820 DATA0000100100000000 
3830 DATA00001 00 110000000 
3840 DATA00001001 10000000 
3850 DATA0000000101000000 
3860 DATA0000001010000000 
3870 DATA0000010010000000 
3880 DATA0011100001000000 
3890 DATA0000000001000000 
3900 DATA0000000001000000 
3910 DATA0000000001000000 
3920 F0RMTO16 
3930 READAI 

3940 DDI=DD$+CHR$( VAL ( 'H'+LEFTf ( Al, 8) ) ) 
3950 EE$=EE$+CHRKVAL('*B'*RIGHT$(A$,8)> 

) 

3960 NEXTI 

3970 SPRITE$(13)=DD$+EEI 
3980 DATA0000000 11 0000000 
3990 DATA000000 100 1000000 
4000 DATA0000001001000000 
4010 DATA0000000110000000 
4020 DATA0000000100000000 
4030 DATA0000000 100000000 
4040 DATA0000000100000000 



4050 DATA0000000 100000000 
4060 DATA00000001 10000000 
4070 DATA0000000101000000 
4080 DATA0000000100100000 
4090 DATA00000U11 1000000 
4100 DATA0000001000000000 
4110 DATA0000010000000000 
4120 DATA0000100000000000 
4130 DATA0000100000000000 
4140 F0RIMT016 
4150 READAI 

4160 J J«=J J$*CHR$ < VAL ( "4B B *LEFT$ ( At, 8) ) ) 
4170 KKMKKI*CHRI(VALriB"+RI6HTl(AI,8)) 

) 

4180 NEXTI 

4190 SPRITEI(24)=JJWKI 
4200 NEXT 

4210 DATA0000000001111111 
4220 DATA0000001U1111100 
4230 DATA000001 111 1100000 
4240 DATA000011 11 11000000 
4250 DATA0001111110000000 
4260 DATA00000001 10000000 
4270 DATA010010UU001000 
4280 DATA1101111U1001100 
4290 DATA00U111U1110000 
4300 DATA001 1111 111000000 
4310 DATA001U11111100000 
4320 DATA01 11111111 100000 
4330 DATA01U111111110001 
4340 DATA0 111111111111111 
4350 DATA0011111111111111 
4360 DATA00011U111001100 
4370 RETURN 

4380 PLAY , A2BC4D8E16F32G64 , :PRESET(100.1 
00) ¡PRINTIl, 'LO C0NSE6UISTE" : GOTO4460 
4390 FORI*0TO2000:NEXT:CLS:COLOR 15,14,1 
4:CLS:PUTSPRITE3, (100, 100) , 2, 24: PUTSPRIT 
E0, (100,109), 8, 33 

4400 PA* ( (FDt 100) *PT) : IFPA>PHTHENPH=PA 
4410 PRESET(16, 10) ¡PRINTIl, «TU PUNTUACIO 
N ES:';PA 

4420 PRESET (16, 4fh PRINTIl, "LA MAXIMA ES 
!';PH 

4430 FD=1:PRESET(16, 70) :PRINT01, "¿JUEGAS 
OTRA VEZ7CSJ - 

4440 IFINKEYI="S"THEN90ELSE4440 

4450 PLAY"G2FE4D8C16B32A64':PRESET(100, 1 

00):PRINTIl, , PERDISTE':6OTO4390 

4460 IFFD02THEN PRINTIl, " PASAS A LA S 

I GUIENTE PANTALLA ':FORI=0TO1000:NEXT:FD 

4470 IF FD«2THEN4390ELSE100 

4480 'ttttStlNSTRUCCIONESftmmtttSttt 

t 

4490 FOR I = 1 0TO1 00STEP 1 0: L INE (1,1) - (260-1 
, 190-1 ),I/10,BF: NEXT 
4500 PRESET ( 114, 92) : PRINTIl , 'SBANKY' 
4510 6=0:F*5:FORA*15TO0STEP-1:6«6M:FOR 
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Programa 



«Itt i' ni »•«.;.. i i. 4. «« 




K=10TO0STEP-6:F=F*.5:FORB=0TO250STEPF:SO 
UND8,A:SOUND0,B:SOUND1,0:SOUND13,8:NEXT: 
HEXT:NEXT 
4520 SOUND8,0 

4531 CLS:PRESET(0,10):PRINT*l f " SBANKY 
DEBE LLEGAR HASTA LA BASE SUPERIOR P 



ARA SOBREVIVIR ¡¡CUIDADITO CON EL FANT 
ASMA ' 1 "¡PRINTIl, " HAY DOS PANTALLAS .EN 
LA PRIMERA SOLO UTILIZARAS LAS 

TECLAS DEL CURSOR PARA CORRER Y SAL 
TAR .' 

4541 PRINTIl,' EN LA SEGUNDA UTILIZARAS 



EL DISPARADOR PARA COLOCAR LAS 
BASES A TU ALTURA Y PODER SUBIR.' 
4550 PRESET(125,120):DRAN'C8D10R3U4R4D4L 
4R10U3L4U3R4' s PRESET ( 140, 128) : DRAN"C8R4U 
4D4L4U4':FORI=0TQ1000¡NEXT 
4560 RETURN 



Test de listados 



Sbanky 



TEST DE LISTADOS. Para usar el Test de Listado que publicamos al final de cada programa debe cargarse el programa correspon- 
diente publicado en nuestro número 7 del mes de noviembre, pág. 28. 



10 


- 58 


430 


-208 


850 


-142 


1270 


-196 


1690 


-133 


2110 


-136 


2530 


-133 


2950 


-133 


3370 


-134 


3790 


-134 


4210 


-139 


20 


- 58 


440 


-185 


860 


-145 


1280 


-236 


1700 


-133 


2120 


-133 


2540 


-132 


2960 


-133 


3380 


-134 


3800 


-134 


4220 


-140 


30 


- 58 


450 


-202 


870 


-204 


1290 


-150 


1710 


-196 


2130 


-133 


2550 


-134 


2970 


-134 


3390 


-134 


3810 


-134 


4230 


-138 


40 


- 58 


460 


-199 


880 


-250 


1300 


-153 


1720 


-236 


2140 


-133 


2560 


-134 


2980 


-133 


3400 


-134 


3820 


-134 


4240 


-138 


50 


- 58 


470 


- 78 


890 


-134 


1310 


-204 


1730 


-162 


2150 


-196 


2570 


-135 


2990 


-133 


3410 


-133 


3830 


-135 


4250 


-138 


60 


-174 


480 


- 58 


900 


-134 


1320 


- 3 


1740 


-165 


2160 


-236 


2580 


-146 


3000 


-133 


3420 


-133 


3840 


-135 




-134 


70 


- 44 


490 


-129 


910 


-134 


1330 


-132 


1750 


-204 


2170 


-166 


25W 


-196 


3010 


-133 


3430 


-133 


3850 


-134 


4270 


-139 


80 


-210 


500 


- 57 


920 


-134 


1340 


-132 


1760 


- 18 


2180 


-169 


2600 


-236 


3020 


-133 


3440 


-133 


3860 


-134 


4280 


-143 


90- 


- 37 


510 


- 84 


930 


-134 


1350 


-132 


1770 


-134 


2190 


-204 


2610 


-172 


3030 


-196 


3450 


-133 


3870 


-134 


4290 


-142 


100 


- 32 


520 


-247 


940 


-134 


1360 


-132 


1780 


-135 


2200 


- 24 


2620 


-171 


3040 


-236 


3460 


-133 


3880 


-136 


4300 


-140 


110 


- 58 


530 


- 80 


950 


-134 


1370 


-134 


1790 


-134 


2210 


-134 


2630 


-204 


3050 


-182 


3470 


-196 


3890 


-133 


4310 


-141 


120 


-179 


540 


-249 


960 


-135 


1380 


-134 


1800 


-134 


2220 


-134 


2640 


- 29 


3060 


-185 


3480 


-236 


3900 


-133 


4320 


-142 


130 


- 26 


550 


- 61 


970 


-133 


1390 


-134 


1810 


-140 


2230 


-134 


2650 


-134 


3070 


-204 


3490 


-190 


3910 


-133 


4330 


-144 


140 


-116 


560 


- 58 


980 


-133 


1400 


-134 


1820 


-134 


2240 


-134 


2660 


-134 


3080 


- 42 


3500 


- 15 


3920 


-196 


4340 


-147 


150 


-115 


570 


- 54 


990 


-134 


1410 


-134 


1830 


-134 


2250 


-133 


2670 


-134 


3090 


-132 


3510 


-204 


3930 


-236 


4350 


-146 


160 


- 58 


580 


-118 


1000 


-133 


1420 


-134 


1840 


-134 


2260 


-133 


2680 


-134 


3100 


-132 


3520 


- 90 


3940 


- 26 


4360 


-141 

i"» 


170 


-128 


590 


-184 


1010 


-133 


1430 


-135 


1850 


-140 


2270 


-133 


2690 


-134 


3110 


-132 


3530 


-134 


3950 


- 31 


4370 


-142 


180 


- 58 


600 


- 58 


1020 


-133 


1440 


-135 


1860 


-133 


2280 


-133 


2700 


-134 


3120 


-132 


3540 


-134 


3960 


-204 


4380 


-182 


190 


- 62 


610 


-164 


1030 


-133 


1450 


-137 


1870 


-133 


2290 


-134 


2710 


-134 


3130 


-134 


3550 


-134 


3970 


-146 


4390 


-148 


200 


-174 


620 


-219 


1040 


-133 


1460 


-135 


1B80 


-133 


2300 


-134 


2720 


-135 


3140 


-134 


3560 


-134 


3980 


-134 


4400 


-127 


210 


- 41 


630 


-136 


1050 


-196 


1470 


-135 


1890 


-135 


2310 


-134 


2730 


-133 


3150 


-134 


3570 


-139 


3990 


-134 


4410 


- 53 


220 


- 22 


640 


-182 


1060 


-236 


1480 


-134 


1900 


-132 


2320 


-137 


2740 


-133 


3160 


-134 


3580 


-134 


4000 


-134 


4420 


-250 


230 


- 20 


650 


- 4 


1070 


-146 


1490 


-196 


1910 


-132 


2330 


-133 


2750 


-134 


3170 


-134 


3590 


-134 


4010 


-134 


4430 


-197 


240 


-203 


660 


- 92 


1080 


-149 


1500 


-236 


1920 


-132 


2340 


-133 


2760 


-133 


3180 


-134 


3600 


-134 


4020 


-133 


4440 


- 63 


250 


- 13 


670 


- 46 


1090 


-204 


1510 


-154 


1930 


-196 


2350 


-133 


2770 


-133 


3190 


-135 


3610 


-140 


4030 


-133 


4450 


-237 


260 


-167 


680 


-252 


1100 


- 0 


1520 


-157 


1940 


-236 


2360 


-133 


2780 


-133 


3200 


-135 


3620 


-133 


4040 


-133 


4460 


-109 


270 


- 58 


690 


- 42 


1110 


-134 


1530 


-204 


1950 


-158 


2370 


-196 


2790 


-133 


3210 


-137 


3630 


-133 


4050 


-133 


4470 


-131 


280 


-252 


700 


-152 


1120 


-135 


1540 


- 9 


1960 


-161 


2380 


-236 


2800 


-133 


3220 


-135 


3640 


-133 


4060 


-134 


4480 


- 58 


290 


- 35 


710 


-142 


1130 


-135 


1550 


-134 


1970 


-204 


2390 


-174 


2810 


-196 


3230 


-135 


3650 


-135 


4070 


-134 


4490 


-210 


300 


- 31 


720 


- 58 


1140 


-135 


1560 


-134 


1980 


- 15 


2400 


-177 


2820 


-236 


3240 


-134 


3660 


-132 


4080 


-134 


4500 


- 90 


310 


-255 


730 


-164 


1150 


-134 


1570 


-134 


1990 


-134 


2410 


-204 


2830 


-178 


3250 


-196 


3670 


-132 


4090 


-137 


4510 


-181 


320 


-229 


740 


-219 


1160 


-133 


1580 


-134 


2000 


-134 


2420 


- 57 


2840 


-181 


3260 


-236 


3680 


-132 


4100 


-133 


4520 


- 26 


330 


- 58 


750 


- 56 


1170 


-133 


1590 


-133 


2010 


-134 


2430 


-132 


2850 


-204 


3270 


-186 


3690 


-196 


4110 


-133 


4530 


-250 


340 


- 98 


760 


-116 


1180 


-134 


1600 


-133 


2020 


-134 


2440 


-132 


2860 


- 39 


3280 


-189 


3700 


-196 


4120 


-133 


4540 


-141 


350 


- 53 


770 


- 4 


1190 


-133 


1610 


-134 


2030 


-134 


2450 


-132 


2870 


-134 


3290 


-204 


3710 


-236 


4130 


-133 


4550 


-145 


360 


-197 


780 


-196 


1200 


-133 


1620 


-134 


2040 


-134 


2460 


-132 


2880 


-135 


3300 


- 46 


3720 


- 18 


4140 


-196 


4560 


-142 


370 


- 88 


790 


- 40 


1210 


-134 


1630 


-134 


2050 


-134 


2470 


-132 


2890 


-135 


3310 


-134 


3730 


- 23 


4150 


-236 






380 


- 25 


800 


-120 


1220 


-133 


1640 


-134 


2060 


-135 


2480 


-132 


2900 


-135 


3320 


-134 


3740 


-204 


4160 


- 50 






390 


- 22 


810 


-124 


1230 


-133 


1650 


-133 


2070 


-135 


2490 


-132 


2910 


-134 


3330 


-134 


3750 


-137 


4170 


- 55 






400 


- 39 


820 


- 58 


1240 


-133 


1660 


-133 


2080 


-134 


2500 


-133 


2920 


-133 


3340 


-134 


3760 


-134 


4180 


-204 






410 


- 16 


830 


-196 


1250 


-133 


1670 


-133 


2090 


-134 


2510 


-135 


2930 


-133 


3350 


-133 


3770 


-134 


4190 


-181 


TOTAL: 


420 


-230 


840 


-236 


1260 


-133 


1680 


-133 


2100 


-134 


2520 


-133 


2940 


-134 


3360 
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ATREVETE m UTILIDADES 

- PRACTICAS PARA TU MSX 



UTILES 



con 
^POTENCIA I 



IDEA 



ESTAREMOS EN S.I.M.O. PABELLON 10 
NIVEL SUPERIOR STAND C 18 






Disponer de una sensacional calculadora residente 
en tu MSX, a tu alcance en cualquier instante, con sólo 
tocar un tecla. Un reloj alarma programable. 

Copiar por impresora las pantallas de tus programas. 
Crear fantásticos efectos de animación. Disponer 
formidables editores de sprites y avanzadas 
instrucciones para su manejo. ¡¡IMAGINA!! 
J«í & Consultar un completo prontuario de tu 

BASIC MSX interactivamente... sólo con 
conectar uno de nuestros programas y 
¡a funcionar! ¡ASI DE FACIL! 



iUPER SPRITES 1 

'ermite aumentar la capacidad de 
jestión y edición de nuestro MSX. Po- 
ente editor de formas de distintos tama- 
ios y colores, pudiendo ser salvadas o car- 
iadas desde cualquier otro programa, permi- 
iendo el control de velocidad, orientación y 
ambio de formas de sprites. 



¡IDE PACK 

'ermite acceder a múltiples funciones desde cual- 
luier programa dada su transparencia. Entre otras 
ios proporciona una potente calculadora científi- 
a, reloj alarma programable, copia de pantallas 
•or impresora... SIDE PACK será un inseparable 
le tu ordenador. 




La más potente calcula- 
dora científica que puedes comprar para 
tu ordenador. Programa pensado para 
todas aquellas personas que requieran 
un potente soporte matemático, rápido 
y sencillo de usar. 



Procesador de textos de fácil ma- 
nejo. Máxima potencia de trabajo. 
42 K libres de Memoria. EDITOR de 
página entera con control total de már 
genes, identaciones, centrado, espacios, 
encabezados, pies de página, movimiento e 
inserción de bloques, etc. Trabaja con cualquier 
impresora. Compatible con IDEA BASE y DIM 
CALC. Permite salvar en cinta o disco. 

IPEA BASE 

Impresión de etiquetas y listados. 42 K de me- 
moria libre de trabajo. Ordenación de registros. 
Menús conversacionales e interactivos. 
Puede salvar o grabar en cinta o disco. 
Es compatible con IDEA TEXT y DIM CALC. 



NUESTRO DEPARTAMENTO 

de M.C. está a su disposición 

Consúltenos: 
Tel. 253 74 00 



Pedidos: 2545128 

•Delegados y distribuidores 
en todo el país 



IDEALOGIC 



c/. Valencia, 85 — 08029 Barcelona 
Tel. 253 74 00 - 253 90 45 
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BASES 

1. "-Podrán participar todos nuestros lectores 
cualquiera sea su edad. 

2. "-Los programas se clasificarán en tres cate- 
gorías: 

Educativos 
Gestión 

Entretenimiento 

3. "-Los programas deberán ser remitidos gra- 
bados en cassette debidamente protegidas, dentro 
de su estuche de plástico. 

4. "-No entrarán en concurso aquellos progra- 
mas que ya hayan sido publicados por otros me- 
dios o plagiados. 

5. °-Junto a los programas se incluirán las ins- 
trucciones correspondientes, detalle de las varia- 
bles, ampliaciones posibles y todos aquellos co- 
mentarios que el autor considere de interés. 

6. "-Todos los programas han de estar estructu- 
rados de modo claro, separando con REM los 
distintos sectores del mismo. 



PREMIOS 

7. 0 -MSX CLUB OTORGARA LOS SI- 
GUIENTES PREMIOS: . 

JOYSTICK DE ORO MSX CLUB Y UNA 
UNIDAD DE DISCO AL MEJOR PROGRA- 
MA DEL AÑO. 

Además mensualmente se premiarán los pro- 
gramas publicados del siguiente modo: 

10.000 pts. los programas Educativos 

1 0.000 pts. los programas de Gestión 
6.000 pts. los programas de Entretenimiento 

FALLO Y JURADO 

8. "-EI Departamento de Programación de MSX 
CLUB DE PROGRAMAS hará la primera selec- 
ción de la que saldrán los programas publicados 
en cada número de la revista. 

9. °-Los programas no se devolverán salvo que 
así lo requiera el autor. 

10.°-La elección del PROGRAMA DEL AÑO se 
hará por votación de nuestros lectores a través de 
un boletín que se publicará en el mes de octubre 
de 1987. 

1 l."-El plazo de entrega de los programas finali- 
zará el 31 de octubre de 1987. 
12.--EI fallo se hará conocer en el número de di- 
ciembre de 1987, entregándose los premios en el 
mismo mes. 



3.» GRAN CONCURSO 




Remitir a: 




- Mi PROGRAMA 
toca i Batlle, 10-12, bajos 08023 B arcelon; 



MSX SOFTWARE 





Por Joaquín López 



HARD COPY 



Se notaba a faltar un buen pro- 
grama de «HARD COPY» para 
MSX. A fin de cubrir esta ausen- 
cia, hemos creado uno que satis- 
fará al usuario más exigente. 




Se trata de un programa con gran canti- 
dad de opciones y posibilidades, aunque 
no por ello difícil de manejar. En efecto, 
todas las acciones son controladas siguien- 
do un método cada vez más usado en el 
software moderno: los menús por ven- 
tanas. 



COMO MANEJAR HARD 
COPY 

La forma de cargar el programa es usan- 
do BLOAD" CAS:",R 
Pronto aparece el mensaje: 
found: HCMSXO 

Al poco tiempo se borra la pantalla y 
se muestra: 
HARD COPY 
CARGANDO.. 

Cuando se ha completado la carga, apa- 
rece un mensaje de bienvenida y se indica 
que la entrada al programa se realiza pul- 
SELECT. 



En este punto, ya puedes olvidarte de 
él hasta que realices un dibujo y quieras 
copiarlo. 

Al pulsar la referida tecla SELECT en- 
tramos por fin en HARD COPY, y apa- 
rece un menú con diecisiete opciones di- 
ferentes a la vez que se muestra una flecha 
apuntando a la seleccionada en ese mo- 
mento. La flecha en cuestión se desplaza 
atendiendo a los requerimientos de fas te- 
clas del cursor o de un joystick. Cuando 
se encuentra sobre la opción deseada, se 
pulsa el disparador y se abre otra ventana 
que da acceso a un submenú en el que tam- 
bién aparece la flecha cursora. Como ves, 
es sencillo saber dónde se está en cada mo- 
mento, gracias al empleo de las ventanas. 

Quizás estés pensando que todo esto re- 
sulta muy- atractivo, pero que el progra- 
ma debe «comerse» casi toda la memoria 
disponible. Sin embargo, uno de los pun- 
tos fuertes del programa es que no toca ¡ni 
un solo byte del área del usuario!. HARD 
COPY se aloja en las 32K de RAM no ac- 




POR JOAQUIN LOPEZ 

Mt:nus por ventanas tros 
formatos de copias simulación 
on blanco y negro copia 
sprites redefine colores 
• compatible con cualquier 
impresora matricial 



CON GARANTIA 

14ANHAT1AN TRANSFERSA 



cesibles al BASIC, de ahí que sea capaz de 
no gastar memoria y de preservar integra- 
mente el programa desde el que fue llama- 
do. Cuando se abandona el copiador el 
control vuelve al sitio del que partió, de- 
jando todo como estaba antes de la llama- 
da. En contrapartida, HARD COPY sólo 
corre en ordenadores de 64K. 

Se ha preferido esto a la posibilidad de 
instalarlo en la RAM del usuario debido, 
como se ha dicho, a impedir el empleo de 
la memoria libre en un programa tan lar- 
go (4000 instrucciones de código má- 
quina). 



UN EJEMPLO FICTICIO 

Supon que has cargado HARD COPY 
y a continuación has hecho lo propio con 
un juego. En el momento que aparece una 
pantalla interesante, pulsas la tecla SE- 
LECT. Una vez en el menú principal, te 
| vas a la 
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ALMACENADA». Tras comprobar con 
detenimiento si es la que tú quieres, pul- 
sas una tecla (o mueves el joystick) y si- 
gues con el proceso. Ahora, lo primero 
que debes hacer es ir a la opción «MOS- 
TRAR/ OCULTAR FORMATO AC- 
TUAL», a fin de saber qué tipo de copia 
está seleccionada, qué modelo de impre- 
sora está vigente, si se van a copiar los 
SPRITES, cómo es el margen izquierdo, 
el número de pasadas, etc. Acto seguido, 
y en el supuesto de que la impresora se- 
leccionada no coincida con la tuya, te vas 
a la opción «FIJAR LA IMPRESORA». 
Si tienes una MSX o una EPSON- 
compatible (SEIKOSHA, por ejemplo) 
únicamente tienes que pulsar el dispara- 
dor sobre el modelo elegido. Si tu impre- 
sora no responde a los códigos de control 
de alguná de éstas (caso muy raro) elige en 
el submenú la opción «OTRAS» y apare- 
cerá una nueva ventana, muy explícita por 
cierto, donde podrás introducir los co- 
mandos de impresión adecuados. 



A continuación puedes seleccionar el 
tipo de copia. Verás que el programa ofre- 
ce tres posibilidades: normal, doble y si- 
mulación: en las dos primeras el degrada- 
do de grises se consigue asignando a cada 
color un porcentaje del número total de 
pasadas si quieres que todos los puntos de 
color magenta reciban dos pasadas de las 
cuatro que se van a realizar, en la opción 
«VARIAR EL TONO DE LOS COLO- 
RES» debes poner un 50 (50 %) encima del 
color en cuestión (magenta, en este caso). 
Si, por otra parte, deseas que el negro re- 
ciba cuatro pasadas debes asignarle un por- 
centaje de 99 (el máximo). Comprenderás 
ahora el método seguido para determinar 
el grado de gris de cada color: asignarle un 
porcentaje del número total de pasadas. 

La tercera opción de copia, «simula- 
ción», logra el degradado de grises convir- 
tiendo cada punto de la pantalla en una 
matriz de 3x3, de suerte que los puntos 

de esta matriz corresponden con lo que tú 

L„ i~r:_: j ! ¿ L - - ,j on 




VAMPIREÜ 

EL VIEJO CONDE 
QUIERE HINCARTE 

EL COLMILLO 
LUCHA A MUERTE 

Y ESCAPA DE 
SU TERRORIFICO 
CASTILLO 



POR SOLO 800 PTAS. 




I 



Oí 



o 



1UI 



HALLARAS TO 
SOFTWARE DEL 
RCADO EN MSX 
TE LO PIERDAS, 
gramas de juegos 
, educativos, 
tión. Una guía 
pleta con más 
100 títulos, 
ssettes, cartuchos, 
diskettes, tarjetas y 
libros. 

Además todas las 
empresas de hardwa 
software con sus 
direcciones y teléfon 
Un número 
imprescindible para 
usuario MSX. 
YA ESTA EN TU 
QUIOSCO 

MSX CLUB ESPECIA 
SOFTWARE algo FUE 
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«MODIFICAR LAS TRAMAS». Natu- 
ralmente, este tipo presenta un tamaño 
nueve veces mayor que el original, y la co- 
pia, que ocupa todo un DIN A-4, se hace 
en sentido vertical, a diferencia de las dos 
primeras en el que las copias se hacen en 
sentido horizontal. Es importante señalar 
que la utilidad de este tipo de simulación 
de los colores en todo lo referente al di- 
bujo de mapas cartográficos o gráficos es- 
tadísticos. Empleándolo, podrás obtener 
gráficos de «tarta» parecidos a los que se 
exhiben en periódicos o revistas. Sin em- 
bargo, en esta opción no se copian los 
SPRITES, ya que es un tipo de copia que 
no se presta a determinar con exactitud los 
detalles, sino más bien a sombrear zonas 
con diferentes rayados. 
En fin, cuando hayas concretado los 

()untos importantes, ya puedes completar 
a definición de la copia eligiendo entre co- 
piar en inverso, copiar o no los SPRITES 
o el fondo, etc. Y no te preocupes por el 
hecho de que adaptar el formato, para ob- 
tener exactamente lo que deseas, sea una 
tarea laboriosa. Piensa que cuando lo ten- 
gas todo definido puedes ir a la cinta, para 
no tener que repetir el trabajo cada vez. 
Por cierto, si lo deseas, también puedes al- 
macenar la pantalla con la opción «GRA- 
BAR LA PANTALLA». 



CABOS SUELTOS 

Hay varios detalles importantes más: 
— Debes observar cuidado con la lon- 
gitud del margen a imprimir, ya que es po- 
sible excederse con el y hacer que la im- 
presora no pueda completar una línea del 
dibujo sin efectuar un retorno de carro. 
Las columnas máximas del margen habrán 



de ser dictadas en función de cada tipo de 
copia y de impresora. 

— En las opciones de grabación/carga 
es optativo introducir el nombre. Si se es- 
pecifica al cargar, el programa mostrará el 
mensaje «ENCONTRADO:», seguido 
por el nombre. Si éste no coincide con el 
buscado, desaparecerá de la de la pantalla 
a los pocos segundos y se ignorara. Debes 
saber, empero, que HARD COPY sólo 
compara el nombre tecleado con el que se 
encuentra hasta la longitud del primero, 
es decir: si das como nombre «P», cargará 
el primer fichero que encuentre cuyo 
nombre empiece por la referida letra. 

— Si en cualquier mooento quieres de- 
tener una operación (impresión, graba- 
ción, etc.) debes pulsar simultáneamente 
las teclas CTRL y STOP. Inmediatamen- 
te aparecerá un mensaje de error y el con- 
trol volverá al menú principal. 

— En el caso de que llames al programa 
desde SCREENO o SCREEN3, HARD 
COPY te indicará que has cometido un 
error y rehusará la entrada al programa, 
ya que sólo trabaja en SCREEN1 o 2 (las 
únicas pantallas en las que se puede hacer 
gráficos interesantes). 



DOS LIMITACIONES 

Ya se ha dicho la forma de acceder a 
HARD COPY: pulsar la tecla SELECT. 
No obstante, existen programas comercia- 
les que emplean rutinas propias de lectu- 
ra del teclado. En éstos, es probable que 
el sistema operativo no llegue a enterarse 
jamás de que la referida tecla ha sido pul- 
sada y, por consiguiente, el programa co- 
piador no conseguirá entrar en funciona- 
miento. En este caso, la única forma de 
copiar la pantalla es desproteger el progra- 
ma, almacenarla en una cinta, pulsar re- 
set, cargar el copiador y posteriormente 
la pantalla. El camino es laborioso, pero 
no hay otro. De cualquier forma, todos 
los programas escritos en BASIC permi- 
ten copiar la pantalla directamente, así 
como un buen número de programas co- 
merciales. 

La otra circunstancia que puede crear 
problemas, es intentar copiar la pantalla 
de un programa que emplee rutinas para 
acceder al VDP sin pasar por el BIOS. 
Puesto que los registros del VDP son de 
sólo lectura, no habrá forma de saber qué 
tipo de pantalla se está intentando copiar 
ni de qué formato son los SPRITES. Sin 
embargo, hay pocos programas que des- 
precien las ventajas de usar el BIOS para 
acceder al VDP, lo que implica que el sis- 
tema guaradará una copia en la RAM de 
cada uno de los registros del procesador 
de video. 



ENTRA EN EL FANTASTICO 
MUNDO DE LA ALTA 
TECNOLOGIA MUSICAL CON TU 
ORDENADOR MSX Y 
SISTEMAS MIDI 

DESCUBRE LOS NUEVOS 
SONIDOS SINTETIZADOS Y LAS 
FABULOSAS POSIBILIDADES DE 
LA INFORMATICA MUSICAL 

APROVECHA AHORA 
ESTA OFERTA MUY 
ESPECIAL: 



50% de Descuento en el precio del Interface MIDI MIDI- 
TRACK PERFORMER para MSX y 2 Cables MIDI, al 
adquirirlos junto con tu sintetizador en SISTEMAS MIDI. 



Sólo 



de 46 360, 




NUESTRA SELECCION 
DE SINTETIZADORES 

• CASIO CZ- 101 (teclas pequeñas): 89 700.- 

• CASIO CZ-1000 (teclas normales): 128.200,- 

• YAMAHA DX-100 (teclas pequeñas): 85.000,- 

• YAMAHA DX-27 (teclas normales): 1 15.900,- 

PR0GRAMA MIDITRACK PERFORMER 

• Secuenciador de 8 pistas polifónicas programables 
en tiempo real. 

• Auto-corrección, Pinchazo, Sincronización, etc. 

NOTA: Los precios indicados incluyen IVA 



SISTEMAS MIDI 
(Una División de VENTAMATIC) 
c/ Córcega. 89, entio. - 08029 BARCELONA 
Tel.: (93) 230 97 90 / 23 0 98 05 

I 

Nombre y Apellidos: 



I 

Dirección: I 

Población:' .' CP.: .'. '. '. 
Provincia: 

T. 



El importe de mi pedido lo hago efectivo mediante 

□ Cheque adjunto 

□ Giro Postal Número 

□ 



Contra-Reembolso (mas gastos de envío 
3% en caso de envió por agencia). 
□ Con cargo a mi Tarjeta de Crédito VISA / 
MASTERCARD / AMERICAN EXPRESS | 
(más gastos de envío) Número 



Caduca: 



Firma: 



MSX APLICACION 



■ J.C. González 



EL COMIC 



Siguiendo la línea de información e innovación que 
en esta revista procuramos para nuestros lectores, hoy 
abrimos una vez más la posibilidad de un horizonte 
nuevo, a través de la aplicación de los ordenadores 
más allá de los juegos, y en cosas más serías como 
son las aplicaciones profesionales. 
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Siempre hemos insistido en que los or- 
denadores MSX, debido a pertenecer 
a un estándar, no quedaban obsoletos 
frente a nuevos modelos de la norma que 
pudieran ir apareciendo, principalmente 
debido a su completo BASIC (básicamente 
el mismo que, utiliza el IBM PC) que lo 
hace especialmente apto para las aplicacio- 
nes gráficas, video, composición musical 
e incluso gestión. No es menos interesan- 
te la gran gama de periféricos que se están 
comercializando para MSX por parte de 



diversas casas de software y hardware. A 
pesar de la poca capacidad de memoria li- 
bre para usuario en los primeros aparatos 
que se comercializaron, así como el ele- 
vado precio de las unidades de disco, que 
fueron causa de que muy pocos profesio- 
nales optaran por utilizar MSX en sus tra- 
bajos. Sin embargo aquella minoría que 
optó por usar el MSX, abriendo una línea 
de acción, incluso abandonando equipos 
superiores, sin duda está de enhorabuena, 
ante la presentación del MSX2. Para co- 
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rroborar este interés, nos hemos acerca- 
do a «ZAP» un estudio de diseño que ac- 
tualmente está a la vanguardia de estas 
experiencias en Barcelona, esperando que 
nos expliquen sus actividades dentro del 
campo de la informática aplicada al dibujo. 
Jaume Fargas y MarceMi Miret han saca- 
do provecho gráfico de los microordena- 
dores domésticos (MSX y MSX2, ATA- 
RI, SPECTRUM, DAI, etc.), elevándolos 
a la categoría de «Ordenador profesional» 
y han sido los primeros en aplicar el or- 
denador al comic. 

En Italia se había dado un experimento si- 
milar, pero Miret y Fargas han sabido 
aprovechar los avances en software inclu- 
yendo textos generados por el mismo or- 
denador. La revista Primera Línea publi- 
có en el mes de Mayo el primer comics 
abriendo de esta manera el campo de la 
aplicación gráfica en el mundo de la na- 
rrativa gráfica. 

Dos meses más tarde la revista de comic 
EL VIBORA se suma a la experiencia pu- 
blicando otro de estos comics. La acogida 
de esta expresión gráfica ha sido más que 
satisfactoria para ZAP. 
Los interesados en la informática lo han 
visto con curiosidad y están siguiendo la 
evolución de estas publicaciones. Ningún 
crítico se ha metido con ella, sino todo lo 
contrario, como demuestra el interés so- 
cial y las mismas actividades de los ayun- 
tamientos, promocionando exposiciones 
de material gráfico y demostraciones de 
funcionamiento del software. 
Está claro que los ordenadores utilizados 
hasta ahora por ZAP studi, no son de alta 
resolución, son los MSX de que cualquier 
persona puede disponer en su casa o en su 
trabajo, pero también son un medio que 
convenientemente trabajado, puede dar 
resultados imprevistos. Marcel lí Miret 
opina lo siguiente: 

— La profesionalidad está en el fondo y 
no en el medio con el que se trabaja. Un 
soft de diseño por ordenador, nos da una 
serie de posibilidades análogas a cualquier 
otra forma de dibujo... Si por ejemplo te- 
nemos un lápiz, podemos nacer con el un 
dibujo a trazo libre, y si encima consegui- 
mos un compás, podremos hacer circun- 
ferencias y círculos. 

—Un software de dibujo, por tanto nos 
da electrónicamente una serie de utensi- 
lios de trabajo. El software es más perfec- 
to cuantas más posibilidades nos de. A este 
nivel ni lo que tenemos es tan pobre, ni 
la perfección llegará a existir jamás. 
También hemos preguntado a Jaume Far- 
gas, ¿desde cuándo trabajáis con microor- 
denadores? 

— Ya los conozco desde pequeño. En la 
empresa donde trabajaba mi padre, él y sus 
amigos me enseñaron a apreciar los orde- 
nadores y los rudimentos de su uso. En 
Holanda durante mi etapa migratoria, lle- 
ve un ordenador de gestión y i 
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primeros simuladores. Después en Espa- 
ña, hace cuatro años, me puse a trabajar 
con DAI, que era lo mejor de su época. 
Más resolución o puntos por pantalla que 
ningún otro, y 16 colores. Para grafismo 
era lo más adecuado, lo utilizábamos y aún 
nos sirve para diseño de anagramas. 
¿Cuál es vuestra experiencia con los MSX? 
—En gráficos los programas existentes, al 
menos en España, aún dejan algo que de- 
sear. Lo mejor es el Eddy 2 del HAL La- 
boratory comercializado por Sony y el del 
ratón neos ms-10 de Spectravideo. Respec- 
to a los microordenadores de la primera 
generación ocupan el tercer lugar en cali- 
dad de gráficos. 

Sin embargo el MSX 2 es otra cosa. Aun- 



que los fabricantes siguen provocando 
problemas de compatibilidades, permite 
un trabajo realmente profesional ya de sa- 
lida en rotulación y efectos. Para muchos 
grafistas es una herramienta de gran im- 
portancia. Hoy en día ya es muy usado 
para la generación de pantallas de video- 
juegos por las empresas de programación. 
Hemos practicado con el Melbourne Note 
que distribuye Mitsubishi, y con la versión 
1.0 del HAL's Note ya completa que es 
un gran programa, realmente útil, el Gra- 
fic Editor HBW-G090, el Videotizer 3D 
Basic y el Carácter Font. Estamos a la es- 
pera de probar aún el que ofrece Philips 
en cuanto lo distribuyan sin el ordenador. 
Para finalizar la entrevista, volvemos a 
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MarceMí que nos habla de otra de las apli- 
caciones de los microordenadores: 
—Los ordenadores pequeños, pueden re- 
sultar muy útiles a la pedagogía. Creo que 
es en el campo escolar donde pueden en- 
contrar su máxima aplicación. Los niños 
tienen la posibilidad de hacer sus propios 
diseños para revistas o el trabajo escolar, 
mapas, gráficos estadísticos, dibujo artís- 
tico, diseño industrial, etc. No obstante 
será necesario un gran esfuerzo por parte 
de los fabricantes para que los actuales mo- 
delos sean más potentes aunque pierdan 
flexibilidad, naturalmente sin salir del 
campo de los micros por evidentes razo- 
nes económicas. 

Dejamos ya aquí este tema, esperando que 




os haya interesado lo suficiente como para 
intentar dibujar algo con vuestro ordena- 
dor, pues no es necesario un complicado 
software. Ya sabéis que podéis programar 
vuestros propios dibujos con el pótente 
Basic del MSX. De todas formas no os de- 
saconsejamos que utilizéis un buen pro- 
grama de dibujo, la facilidad de manejo y 
las posibilidades que tienen son aptas para 
realizar dibujos e imágenes de lo más inu- 
sitado. 

En los próximos números también habla- 
remos de otras aplicaciones profesionales 
de los micros MSX relacionadas con el vi- 
deo y la música, pero de esto ya habrá 
tiempo. 
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CURSO DE INGLES 



The Gruneberg Linkword Language System es un sistema, para enseñanza de idiomas, más rápido y 
ácil que los métodos convencionales aplicados actualmente. 

En poco tiempo, máximo 20 horas, te enseñará un vocabulario de 400 palabras y adquirirás unas buenas 
nociones de gramática. Esto te permitirá entender y ser entendido en tus viajes a lugares de habla inglesa 
o en tus contactos con personas que se expresen en ese idioma. 

Por otra parte, el Sistema PlusData, consigue que el ordenador se convierta en un perfecto profesor que 
te explicará, orientará y corregirá, manteniendo en todo momento un "diálogo" interactivo de resulta- 
dos sorprendentes. 



■■■■ 



THE GRUNEBERG LINKWORD 
LANGUAGE SYSTEM 




LINKWORD 




INGLES- 1 



rra_L3 




I Tavlor. "POPULAR 
COMPUTER WORLD": 



-"PERSONAL COMPUTER 
WORLD": 

"Un suceso fuera de serie..." 



interesante..» el más 




Programas de EAO para EGB. 




------- 



Nombre 

Apellidos 

Dirección 

Población 

D.P 



: 

i 



I Forma de pago: Reembolso □ 



»•••• 



Tino 

Giro postal □ Envío talón □ 




Programa 



Por Ricardo Martínez 



GEOGRAFIA 
ESPAÑOLA 







No se trata de matar marcianos, 
sino de enfrentarse a la máquina 
de una forma muy diferente. Si- 
gue los mapas y textos del progra- 
ma, y luego responde a los test que 
te propone. 



VARIABLES UTILIZADAS A, B = Coordenadas Pset para rutina im- 

CP $ = Control preguntas efectuadas presión negrita 




T$ = Variable que se escribe en rutina 
impresión negrita 

P= Variable para For 

k$, K = Variable para INKEY 

R = 1 Si la opción es evaluación 

R = 0 Si la opción es estudio 

C, D= Coordenadas inicio DRAW 

D$ = Variable DRAW 

NR$ = Nombre asociado al Draw 

Ml$. M2$ = Variables de datos asociados 
al Draw 

EV = Opción evaluación 

PP = Preguntas posibles 

NP = Número preguntas efectudas 

AC = Contador aciertos 

El, E2 = Colores utilizados alternativa- 
mente en Draw, para conseguir efec- 
to intermitente. 



II ' GEOGRAFIA ESPAÑOLA 
21 ' PRESENTACION 
31 ' 

41 KEYOFF: X=0: YMs OPEN'GRP: "ASI: DIHCPI ( 1 

f):Hlf>'N«ct m ':H2$>'dnta.in ■ 

51 SCREEN2: COLORI , 10, 4: CLSi X»40: 6OSUB620 

:PAINT ( 170, 50) : COLORIS: A=80: BM0: TI=*6E0 

r 



60 A- 1 fS i B-6i i T$- - DE a 1 60SUB 1 9f 
71 A=90:B=80:T$='ESPAÑA , :GOSUB190 
80 S$='E3F2E3F3H2E3F2' 
91 60SUB432f:PLAY a R8 a i60SUB432l 
100 FORP=1TO2500:NEXT:X=0:6OTO820 
111 ' 

120 ' RUTINA INKEY 
130 ' 



140 K$ s INKEY$i IFK$ S,, THEN140 
150 K«VAL(K$):RETURN 
160 ' 

170 ' TITULOS NEGRITA 
180 ' 

190 PSET (A, B) , POINT (A,B)i PRINTIl, TI: PSET 
(A*1,B),P0INT(A+1,B) ¡PRINTIl, T$:PSET(A,B 
♦8),P0INT(A,B*B):F0RP*1T0LEN(T$):PRINTI1 
, — ;:NEXT:PRINT:RETURN 
200 ' 

210 ' RECUADRO 
220 ' 

230 LINE(160,5)-(247,35),11,BF 
240 COLORI : A= 1 65 : B=? : T$=T 1 f : 60SUB 1 90 
250 A«165:B*21iTI«T2$i6OSUB190 
260 RETURN 
270 ' 

280 ' INTERRUPCION POR KEY 1 
290 ' 

300 PSET(X*C,Y*O):DRAN , C=E1;XD$; , :LINE(0 
,160)-(255,190),POINT(0,158),BFiRETURN13 
00 

310 I 

320 ' INTERRUPCION POR KEY 2 
330 ' 

340 F0RP»1T03: KEY (P) OFF: NEXT: COLORI: PSET 
(X*C,Y*D)tDRAN , C-EliXDI;":A-15íB"160íT$- 
NP$:5OSUB190 
350 A=9:B=172: T$=H1$: GOSUB440: B= l 82: TI=H 
2$: GOSUB440 

360 FORP=ITO3:KEY<P)ON:NEXT:RETURN1280 



— 
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INTERRUPCION POR KEY 3 



370 
380 
390 ' 

400 F0RPMT03: KEY (P) OFF: NEXT: RETURN990 
4tf ' 

421 » ESCRITURA MENSAJES 
430 1 

440 FORP= 1 TOLEN ( T$ ) : PSET ( A+6IP , B ) , PO I NT í 
JHAtP, B) i PRINTftl , HI Df (Tf, P v 1 1 1 NEKTi RETUR 

450 ' 

461 ' ESCRITURA HENUS 
470 ' 

480 READTI: IFTt«"FIM B THENPRESET(3f, 181) : 
PRINTI1, 'PULSAR LA OPCION DESEADA' :RETUR 

490 PRESET(A,B):PRINTI1,T$:B=B*10:6OTO48 
0 

500 ' 

51* ' CLAVES DRAH 
520 ' 

530 IFD$- , P'THEND$*'E3F3L6RE2F2L2U2':60T 
0580 

IFD$='S'THEND$=S$:6OTO580 
IFDI a "H , THEND$«'E2F2E2BF2E2F2E2BD5BL 
14E2F2E2BF2E2F2E2':6OTO580 
560 IFDM , 6 , THENDl- , 62F2BR2H2E2'i6OTO580 
570 I FD$= ■ C " THENDt« " D4E2H2D2R2 ' 
5B0 RETURN 
590 ' 

600 ' DRAN MAPA ESPAÑA 

610 ' 

620 PSET ( X+104, Y+0) : DRAM'H-2, 10H-2, 3LH-5 

,2H-5,-3H-4,lH-3,-2L6LULH-4,2H-4,-lHH-8, 

-2H2H-4, 2HH-5, 1H-4, -1H-2, -3H262H-2, -1H-2 

, 3H* 1 f 362H-3 1 -1 L2N-3. 2L" 

630 DRAM'H-1 , 3H*2, 46DM+2, 1H-2, 3FH+3, -2F6 

2F62F2M-3, 2H+1 , 9D5H+1 , 6H-1 , 6H+1 , 2G2I1-4, 1 

6H-4, 6D3H-2, BH*3, 1E2H+1 , 3H-3, 2H-1 , 3H*4, - 

lh>l,6H-2,5H+l,4' 

640 DRAM'H-1, 7H-2,4F2RH*2,-iH*5,lF2R2H*4 
'3R4H*7 l 6N-l,4H*3 l 2D2H-2,-lW*4,6H*3,lF 
2H+3, -2H+2, -5H+3, -1R2E4H+5, -1H+6, 2E2H+5, 
1E2R2M+3,2M*3, -5M+1 , -6E6" 
650 DRAK'H+4, 1E2UH2H+2, -4U3E2U2H+2, -3RE5 
H-l,-2LH3M-2,-10N*2,-3U2H*2,-5RH*5,-llh> 
2, 1E2H2LUH+4, -5RH*8, -5RE2U2H+8, -7H*1 , -4' 
660 DRAN'U2HU2REUH2UH2H*1 , -10E3RE5M+5, 2R 
E2U7" 

670 RETURN 
680 ' 

690 ' DRAH FRONTERA FRANCIA 
700 ' 

710 PSET(X+104,Yf0):DRAM'H-2,10H-l,2M*l, 

3RM+l,4N+8,4R3F2R7E2N+6,2D2F2E2F3H+3,-lH 

♦3,lE4HH+l,-10E3RE5h>5,2RE2U7' 

720 RETURN 

730 ' 

740 » DRAH FRONTERA P0RTU6AL 
750 ' 



760 PSET(X*27,Y*38):DRAITR5E2RD26F2E2ñ*6 
, 1E2H+5, 2H* 1 , 5RFD263DG3D2H-2, 1H* 1 , 13G3F2 
H-2, 8L2M-1 , 3H+1 f 3F2D2H-3, 7D4F3 B 
770 DRAH'H-l,5LH-l,663H-l f 7' 
780 RETURN 
790 ' 

800 ' INSTRUCCIONES 
810 ' 

820 SCREEN2: COLORI , 7, 2: CLS 

830 A=15:B=5:T$="GE0GRAFIA DE ESPASA" : 6G 

SUB190 

840 A=15:B=20:T$='RECOHENDACIONES':6OSUB 
190 

850 PRE5ET ( 15, 45) : PRINTtl , "Sigue las ins 
trucc iones que salgan en pantalla" 
860 PRESET ( 15, 75) i PRIMTil , "Todee lii rn 
puestas han de escribirse en NAYUSC 
ULAS 1 

870 A*15iB«105:T$* a !t Engancha la tecla 
'CAP' U':GOSUB190 

880 PRESET ( 15, 125) : PRINTtl , ■Pera eicribi 
r li fi utiliza lai teclas 'CODE' y 'N' 
las dos a la vez* 
890 LINE(15,155)-(245,175),4,BF 
900 COLOR15:PSET(20,160),4:PRINTIi,'APRE 
TAR LA 'S' PARA EMPEZAR" 
910 6OSUB140iIFK$-'S , THEN990 
920 IFKIOVTHEN910 

930 Tt-'Enginchi la Tecla 'CAP":A-20iB« 
180 

940 COLOR 1 : GOSUB 1 9B : FORH= 1 T025 : BEEP : MEXT 
iCOLOR7iGOSUB190 
950 6OTO910 
960 ' 

970 » OPCIONES 
980 ' 

990 SCREEN2:C0L0R15,4, 13: CLS: LINE (84, 6) - 
(160,36),7,BF 

1000 COLORI : A=90: B=16: T$='OPCIONES' : 60SU 
B190 

1010 COLORIS: RESTORE 1040: A=68: B=50: GOSUB 
480 

1020 GOSUB140:ONKGOTO10B0, 1830,4280 
1030 6OTO1020 

1040 DATA1 - ESTUDIO, 2 - EVALUACION, 3 - 
FIN, FIN 
1050 ' 

1060 ' ESTUDIO 
1070 ' 

1080 COLOR 1 , 7 , 4 : CLS: T 1 t« 1 ESTUD I O ' 

1090 A=90:B=10:T$=T1$:6OSUB190 

1 100 RESTORE 1 160: A«30: B-30: GOSUB480 

1110 A-lS:B-lfliTI>'IN5TRUCCI0NES FUNCIO 

NAHIENTO':6OSUB190 

1120 IFR=1THENR=0:6OTO1840 

1 130 REST0RE1 1701 A>15: B-l 15: 6OSUB480 

1 140 6OSUB140: ONK6OTO1200, 1340, 1600, 1710 

1150 6OTOU40 

1160 DATA1 - RIOS, 2 - CUENCAS HIDR06RAFI 
CAS, 3 - RELIEVE, 4 - NARES Y COSTAS, FIN 



1170 DATAUtilizar las teclas de función, 
Fl - Para caibiar de zona,F2 - Pira que 
salgan los datos, F3 - Para tereinar el e 
studio,FIN 
1180 ■ 

1190 ' ESTUDIO RIOS 

1200 C0L0R15,5,14:CLS 

1210 GOSUBÓ2f i PAINT (8#, 80) : COLORI 1 : GOSUB 

710: PAINT ( 130, 0) : COLORI : 6OSUB760 

1220 T2M l RIOS l i6OSUB230iEl*5rE2>Í3 

1230 IFRMTHEN1920 

1240 ONKEY6OSUB300,340,400:FORP=1TO3:KEY 
(P)ONiNEXT 
1250 RESTORE2370 
1260 READC:IFC=0THEN1250 
1 270 READD, DI, NR$ , H 1 $ , H2$ : GOSUB530 
1280 C0L0R15: PSET ( X+C, Y*D) : DRAH "C= El ; XD$ 
; , :FORP«1TO200:NEXT:BEEP 
1290 PSET ( X*C, Y*D) : DRAH'C S E2; XD$; ' : FORP 
1TO200:NEXT:6OTO1280 
1300 ONK6OTO1260, 1550, 1660, 1780 
1310 ' 

1320 ' ESTUDIO CUENCAS HIDROGRAFICAS 
1330 ' 

1340 COLORI , 7, 4¡ CLSi A>40i B>10: Tl"'CUENCA 
S HIDROGRAFICAS" :GOSUB1?0 
1350 RESTORE 1 380 : A=40 : B=40 : 6OSUB480 
1360 GOSUB 1 4# i 0NK60T0 1390, 1400, 1410, 1420 
,1430,1440,990 
1370 6OTO1360 

1380 DATA1 - HIÑO, 2 - DUERO, 3 - TAJO, 4 - 
GUADIANA, 5 - GUADALQUIVIR, 6 - EBRO,7 - 
Volver a OPCIONES, FIN 
1 390 RESTORE2570: EV«2i PP = 1 : GOTO 1 43 0 
1400 RESTORE2630:EV=3:PP=10:6OTO1450 
1410 RESTORE2900:EV=4:PP=B:6OTO1450 
1420 RE8TORE3100:EV>5iPP«7i6OTO1450 
1430 RESTORE3290:EV«6:PP«5:6OTO1450 
1440 RESTORE3440:EV=7:PP=10 
1450 COLORIS, 15, 13:CLS:K«2 
1460 T2f--CUENCAS B i 6OSUB230I El-5i E2-15 
1470 LINE(0,45)-(255,155),15,BF:LINE(0,0 
)-(150,45),15,BF 

14B0 READC,D,D$,NR$:LINE(0,46)-(255,155) 
iS 9 BF 

1490 COLORI : 0*431 Be! : T$='CUENCA' : GOSUB 19 
0iM20il«13iTM a HlDROíRAF!CA l ifiOIUIlf0iA 

=56:B=24:T$= , DEL , :GOSUB190 

1500 A=72-(LEN(NR$)/2)I9:B*35:T$*NR$:60S 

UB190 

1510 C0L0R14: PSET ( X*C, Y*D) : DRAN'XDI; ' : PA 
INT(X*C*5,Y*D*5) 

1520 COLORI : READC, D, DI: PSET ( W, Y*D) : DRA 
i'XDfj' 

1530 IFRMTHEN1920 

1540 ONKEY60SUB3f 0, 340, 4001 F0RP-1T03: KEY 

(P)ON:NEXT 

1550 READC i IFC-0THENFORP«1TO3:KEY(P)OFFj 

NEXT:6OTO1340 

1560 GOTO1270 
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\ Programa ■ 




1571 ' 

ISBf ' ESTUDIO RELIEVE 
I9fi ' 

1600 CQL0R7, 12. 14:CLS 

1610 6OSUB620:PAINT(255,0) 

1620 T2$= a RELIEVE a :GOSUB230:El=l:E2=15 

1630 IFR=1THEN1920 

1640 ONKEY6O8UB300, 340, 4001 F0RP-1TQ3I KEY 

(P)0N:NEXT 

1650 RESTORE3720 

1660 READCIIFO0THEN1630 

1670 GOTO1270 

1680 ' 

1690 ' ESTUDIO MARES Y COSTAS 
1700 ' 

1710 C0L0R12,7,4:CLS 

1720 6OSUB620iPAINT(80,80) 

1730 T2t« a CQSTAS a \ 6OSUB230: El-1: E2-7 

1740 COLOR4:PRESET(180,100):PRINTtl, a ss 

NAR a iPRESET(lB0,110):PRINTIl, a c GOLFO": 

PRESET ( 180, 120) :PRINTtl , CABO'iCOLORl 

1750 IFR*1THEN1920 

1760 ONKEY6OSUB300,340,400íFORP*lTO3:KEY 

(P)ON:NEXT 

1770 RESTORE4050 

1780 READC:IFC=0THEN1770 

1790 GOT0127I 

1800 ' 

1810 ' EVALUACION 
1820 ' 

1830 COLORI , 15, 2: CLS: Tl$="EVALUACION« : R= 
1:6OTO1090 

1840 RE8TORE1870iA«l5iBM15i6OSUB480 
1850 6OSUB140:ONK6OTO1880, 1890, 1900, 1910 
1860 GOTO1850 

1870 DATAEicrlbt li respuesta, Si crin q 
ue está bien,Pulsa 'RETURN' „Para BORRAR 
usa li tecla 'DEL', FIN 
18B0 R-liEV-liPP'10i6OTO1200 
1890 R-li6OTO1340 
1900 R=1;EV=8:PP=10:GOTO1600 
1910 R*1;EV=9:PP=10:GOTO1710 
1920 ONEVGOSUB1990,2000,2010,2020,2030,2 
040,2090,2060,2070 
1930 IFR*0THENRETURN 
1940 READCiIFC«0THEN1970 
1950 READD, DI, NRt , Hit, H2li 6OSUB530 
1960 PSET ( |«C| Y+D) : DRA«'C=E1 ; XD$; 1 : G0T01 
941 

1970 IFR-1THENR-0I6OSUB1920 
1980 GOTO2080 
1990 RESTORE2370: RETURN 
2N0 REST0RE26 1 0 1 RETURN 
2010 RESTORE2670: RETURN 
2020 RESTORE2930» RETURN 
2030 RESTORE3140: RETURN 



2040 RESTORE3330: RETURN 

2050 RESTORE3480: RETURN 

2060 RESTORE3720: RETURN 

2070 RESTORE4050: RETURN 

2080 FORPMTO10:CPI(P)* aa :NEXT:NP*0:AC*0 

:LE=80 

2090 NI=INT(RND(-TI«E) $60) +1:C$= B " 
2100 FORP» 1 TON I : REftDC : I FC=0THENGOSUB 1 920 
:GOTO2120 

2110 READD, Df v NR« V Hl», H2»: GOSUB530 
2120 NEXT 

2130 IFC-0THEN2090 

2140 FORP*1TO10:IFNR$=CP$(P)THEN2090 
2150 NEXT 

2160 NP=NP+1:CP$(NP)=NR$ 

2170 COLORI ¡PSET (80, 160), POINT (80. 160) :P 

RINTI1, 'ESCRIBE EL NOMBRE" 

2180 PSET ( X +C , Y+D) : DRAW " C=E2 ; XD$ ; 1 : F0PP= 

1TO50:NEXT 

2190 Kf«INKEYt:IFK$O aa THEN2210 

2200 PSET ( X+C, Y+D) : DRAW " C=E 1 ; XDI; *: FORP = 

1TO50:NEXT:GOTO2180 

2210 !FASC(K$)-!3THEN2240 

2220 IFASC(Kf) =127THENPSET(80, 170) ¡COLOR 

POINT (0, 170) :F0RP=1T0LEN (C$) : PRINTI1 , J* 

;:NEXT:C$s":COLORl:LE*80:6OTO2180 

2230 C$=C$+K$;PSET(LE, 170) , POINT (LE, 170) 

:PRINTI1,K$:LE=LE+7:6OTO2180 

2240 LE=80:IFC*=NR$THEN6OSUB4320:PSET(80 

,180)iPRINTIl, a NUY BIEN-:AC=AC+1: B0T0226 

0 

2250 PLAY , T100L4O4EBFIEO3AO4FIO3F2O2F2' i 
PSET(24,180),POINT(24,180)iPRINTIl, a NAL, 
ES:'NR$ 

2260 FORP-lTO2000:NEXTiLINE(0,159)-(255, 
190) , POINT (0, 139) ,BF¡ LINE (185,46) -(255,6 
6) , POINT (184, 47), BF 

2270 MIT ( 119, 44) I PRXNTI1 , "PRII. -*NPi PIE 

T(185,56):PRINTIl, a BIEN ='AC 
2280 IFNP<PPTHEN232f 
2290 IFAC<PP/2THENPSET(80, 160) :PRINTI1, 1 
DEFICIENTE" : PSET (80, 170) : PRINTíl , "VUELVE 
A E8TUDIAR l iFORP-lTO2000iNEXTi6OTO1080 
2300 IFAC<PP-lTHENPSET(80,160)iPRINTtl, a 
NUY BIEN- i FQRP* 1 TO2000: NEXT: 6QTO990 
2310 P8ET ( 8f v 1 60 ) i PR I NTt 1 , " E X CELENTE a 1 60 
SUB4320 1 F ORP« 1 TO2000 1 NE XT 1 6OTO990 
2320 PSET ( X+C, Y+D) i DRAN'C-El ; X DI ; a 
2330 6OTO2090 
2340 ' 

2350 ' DATAS RIOS 
2360 ' 

2370 DATA102,17,"LM-l,-4",BIDASOA,SeSala 
il lliiti con Francia* 
2380 DATA8B,20,'H-l,-2E2H-2,-3 a ,NERVION, 
Foria U ría di Bilbao, 



2390 DATA55,9, a DF3RH+3,2H+l,3 a ,NAL0N, -1 
35 KM.-, 

2400 DATA55, 9, "DM-1, 3M-3 , 2H- t , 3F2 " , NARCE 
A,, 

2410 DATA37, 17, a LG2H2H-6, 2 a , TAMBRE, For aa 
la Ria dt Muros, 

2420 DATA45, 14, a H-4, 2H+1 , 4H-2, 6D3H-5, 3H- 
l,462L5 a , MISO, Nace en Fuente Niia,DllH. 
m La Guardia -340 Ki.- 
2430 DATAB8,39, a H*2,3R2FD2F63H-2,-lH-2,l 
N-9, -4G2H-3, -1N-9, 4H36H6HH-3, 163D63H-3, - 
1L2HLGM-3, -162L2H-3, -2L2", DUERO, Nace en 
Picos de Urbión, Deseo. en Oporto (Portuga 
1) -770 Ko.- 

2440 DATAÍ0i,65, , H-i,-3H-3,-lH-4,2G3H-2, 








A 

1 ¡¡É 




/ 



4D2G4L262L62L3GLH2L363HL2GN-5,-2H-5,3H2N 
-B,2L2G3L4HG4D3H-2,4H-3,l i , TAJO, Nací m 
la Huela dt San Juan, Desea. en Lilboa (Po 
r tugal) -910 Ki.- 

2450 DATA91, 100, ' H2LH2U2H2M-3 , 1 63L62M-3 , 
-2H-3, -6L64D2H-4, 1H-4, -1B3N-4, -1L4H-2,5H 
-3,3D262D10F2H-l,7-,6UADIANA l Naci in Las 
Lagunai di Rui dera, Desea. en Ayaiontf - 
820 Ki.- 

2460 DATA87, 119, "H+2, -4H2LM-2, 5L2M-4, -2L 
2H62L26L6L62L36L62H6LH-3,6D4H-4,3 , ,6UADA 
LBUIVIR.Nact en la Sierra di Cazorla.Dei 
ea.en Sanlúcar di Barraaida -560 Ke.- 
2470 DATA91 ,111, "H+6, -2RFR2F2RH+3, 5RE2R2 
a , SEGURA, Nací en la Sierra di Segura.Dei 
ea.en Guardaaar -341 Ka.- 
2480 DATA100,70, i D262LG2M-l,6H*3,3D6H*4, 
2H+4, -2R2H+3, 1FRE2- f JUCAR, Nao en el Nud 
o di Albarracin, Desea. en Cullera -498 
Ki.- 

2490 DATA105, 69, • F2H-2, 5M+2 , 7M+3 , 1 F2M+3, 

I'.tunia.Niíi m il Nudo di Albirraeifl,D 
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Hft.ffl Valencia -243 Ki.- 
2510 DATA77 , 20 , 1 , 4EFE2F3R2H+3 , 4H+6 , 2F 
5H+2, 4F4RF5H+1 , 3M+5, 111*1, -3H+2, 1D2H*3, 2D 
262HM,5H*5,1 , ,EBR0,Nici tn Fontibri (Ca 
ntabria),Oesei.en el Delta del Ebro -92 
8 Ki.- 

2510 DATA139, 32, "M-l, 2D1 1M+3, 6" , LL0BRE6A 
T,Nace en las Fuentes del Llobregat,Dese 
i. Prat dil Llobrigat - 171 Ki.- 
2520 DATA142,31, , F62H*2,4H*8,-2',TER,Nac 
e en Ulldeter.Desei. Playa de País 
- 167 

2530 DATA0 
2540 ' 

2550 ■ DATAS CUENCAS HIDROGRAFICAS 
2560 ' 

2570 DATA96.46 

2580 DATA'H-4, 6F3D2H-5, -2H-6, 3H2H-9, 7H-2 




, 9H+4 , -2D8E3D4H-3 , 5F2E4H-2 , 9R2EF64FR3M-5 

,711-2, 16H+2,7D5H+3, 13H-3, 11R177U109L159 1 
2590 DAT ANISO 

2600 DATA106,57, "F2M-2, HH>2,5H-4, 10D664 

M-7,3D3G3H-8,2«-3,5L2- 

2610 DATA 134, 71, , D357H*2, 7H-5, 3L3H-2, 4L6 

H2L2G2H-2,-3",SIL,Nace en Cuetos Albos ( 

León),- 228 Ki.- 

2620 DATA0 

2630 DATA37.46 

2640 DATA'H-4, 9F2E3D5G2H+4, 263D2H+5, -3D3 
66H-1,15H*3,23D4H-7,31F266R228U109L218- 
2650 DATADUERO 

2660 DATA158, 86, 'H+9, 5H+1 , 5F266H-10, -1H- 
9, -5L2HL2H-5 , 3H-6, -2H-2 , 3L8H-3 , 2H-2 , -365 
H3L1062H5H-7,llL3H-6,8H-4,-2U4L6H-4,-3H- 
3,2L6N-8,3L5H3' 

2670 DATA 134 ,51. 'H-4, 1 IftH , 4H-2, 4M+1, 465 

D6F2H-8,13',PISUER6A 

2680 DATANaci tn Peña Labra,- 283 Kft.- 

2690 DATA155,78, i H-7,6L7H-8,-2M-6,5 , ,ARL 
ANZA 



2700 DATAAfluente del Pisuerga, 

2710 DATA141,60,'H*2,5D4rW0,12',ARLANZO 

N 

2720 DATAAfluente del Arlanza, 

2730 DATftl20,64,'D6rÍ-l,5H-14,27',VALDERA 

DUEY 

2740 DATA, 

2750 DATA110,49, , H*l,3H-2,767D9H+l,9H-4, 
8D3S2D2M-1 ,4" .ESLA 

2760 DATANact en Pena Prieta,- 285 Ki.- 

2770 DATA 1 1 5 f 55 f " H-2 , 6H+2 , 5H- 1 2 f 1 8 a 9 CEA 

2780 DATAAfluente del Ella, 

2790 DATA141 , 123, 'H-2, -5H-10, -9H-2, -3H-5 

,-lH-2,-3',CE6A 

2800 DATA, 

2810 DATA1 12, 138, "lfM¡ 1H+4, -2U5H-3, -10H+ 
l,-8H-2,-l0',ADAJA 

2820 DATANace en la Sierra de Avila,- 16 
3 Ki.- 

2830 DATA133,127, , U2H-4,-BL2H-7,-10L3 , ,E 
RESNA 

2840 DATAAfluente del Adaja, 

2850 DATA 1 1 2 , 1 49 , , -2L2H-3 , -7H+4 , - 16H 

26L2H4LH-4, -5H-7, -2H' , TORNES 

2861 DATA,- 284 Ki.- 

2870 DATA76, 147, 'E7UH4U4H-5, -12' , AGUEDA 

2880 DATANace en Sierra de Gata, 

2890 DATA0 

2900 DATA53,46 

2910 DATA'H+4, 14D2FU4F2H-2,66D5H-4, 16H+2 
,3H-4,12H-l,763H*l,3H-6,17H*t,3FR3E2H*2, 
-4RH-1, 6D2L62HL2H+2, 6D8R208U109L202 B , TAJ 
0 

2920 DATA52, 132, 'H+3, -2E3H+2, -BE7R4E2R4E 

3R6H+4, -2R4H+3, 1R2H+5, -2R2F2H+6, -2F2R6E3 

H+2, -3H+7, 5R3EF2H+9, -6R2H+10, -6U2H+5, -9R 

2M+6, -7H+4 , 211*2, 5D2H+2, 4* 

2930 DATA147,100,'H*3,-13U3H-2,-5U4H-2,- 

4HM , - 1 0U4H2H* 1,-5", JARANA 

2940 DATANace en Soaos ierra,- 190 Ki.- 

2950 DATA149,81,'R3H*5,-14H*1,-5H*3,-2U4 

EU5 1 , HENARES 

2960 DATAAfluente dil Jar aaa, Nace tn Sif 

rra Ministra - 113 Ki.- 

2970 DAT A 1 49 , 94, "R3H*1 , -3R2H+3, -8E2H+1 , - 

6E3UE3UH+2,-4\TAJünA 

2980 DATAAfluente dil Jar ai a, 

2990 DATA12B, 100,'HM,-2H*3,-7H-2,-4H5L2 

H-2, -1H-9, 2H2UL" , ALBERCHE 

3000 DATANace en Sierra de 6redos (Avila 

),- 177 Ki.- 

3010 DATA 1 05 , 104, "U3E3RE3R2E3R2H+2, -3R2H 

♦3,-2',TIETAR 

3020 DATA , 

3030 DATA90,104, , H+2,-7H*3,-lR4E2H-l,-5H 
♦5 , -4H+ 1 , -9E3H+ 1,-4% ALA60N 
3040 DATANace en Sierra Peña de Francia, 
- 209 Ki.- 

3050 DATA98, 107, 'H*2, 5H+1 0, -1F3RH+ 1,463* 



, ALHONTE 
3060 DATA, 

3070 DATA85, 108, 'F2DH+3, 7H*6, 4H*3, 5' , SAL 
OR 

3080 DATA, 
3090 DATA0 
3100 DATA34.46 

31 10 DATA'H-3, 6H-4, 3D5H-4, 16H+2, 4R6H+3, - 
8H+2 , 9G5M- 1 , -2M-2 , 1 M- 1 , 8H+8 , -3M+3 , 8D3H-3 
, BH> i , 4D4H-2 , 12N-4, 1 1 F2H+6 , -3MH*!, 3F4E8 
R8H+8,3H+8,10R168U109L22r 
3120 DATA6UAD I ANA 

3130 D ATA 1 75 , 82 , ■ L2H9H- 2 , -8L2HL2H-2 , 3H- 1 

0. 7L3H-2, 4H-9, -6L2H-7, - 12H-3, 8G3L263H-8, 
-164L2H63H362L4H2L368D4H-6, 16L2H-2, 10D9H 
♦2,4D2F3H-2,9" 

3140 DATA173.47, , H+2,7H-2,9L2H262H-4, -2H 

~3, 2' | ZANGARA 

3150 DATA,- 220 Ki.- 

3160 DATA 1 65 , 47 , ■ G8H+2 , 8 " , C I 6ÜELA 

3170 DATA, 

3180 DATA 169, 87, 'L26H-4, -2L263LH-2, -5H-5 
, 1H5L3U" , JABALON 

3190 DATANace en la Sierra de Alcaraz,- 
171 Kfe.- 

3200 DATA 110, 104, B H-2, -7E12U3H5H-6, 1H3', 
ZUJAR 

3210 DATA, 

3220 DAT A 1 0)i , 99 , • E2U2L2H4H-3 , -12*, HAT ACH 
EL 

3230 DATA, 

3240 DATA91 , 110, "H-4, -10L364H-8, 2H-7, -2' 
, ARDILA 
3250 DATA, 

3260 DATA78, 114, 'H3L363H-6, 12', CHANZA 
3270 DATA, 
3280 DATA0 
3290 DATA27,46 

3300 DATA'H+2, 8i-3, 1 li*2, 5i-2, 9d6i-2, 5i- 

1 , 6t--2, 4f 2t>8, -4i*8, 2^7, 6i*9, -7i*8, -2l+ 
8 , 5f 5i+3 , 8g2l+9, 22i*3, -li+3, 5a+4 , 2i+4 , -2 
u4e4i+2 , -5«+5 , - 1 e2r 6a+5 , - 7r 6e2a* 1 1 , 2r 2f i 
♦5, -2r7f 2r4i*3, -5r3t2i*3, 6iM, -6u2f2t>4, 
- 1 4e3r 2i+3 , -6r 6i*8 , -3i-3 , -2u3i*6 , -9t>3 , - 
141101196 a 

3310 DATA6UADALQUIVIR 

3320 DATA157,77,'i+4,-10uhlg5i-2,312ghl3 

hl3h!2h«-6,-lglgai-3, - 1 g 2»- 1 2 , 6 1 2g 3 1 3g 2 1 2 

glhi-6,5i-4,13d3i-3,61gd2g a 

3330 DATA167,56, l li-3,2hi-4,2i-7,5g2i-3, 

Ig2d2" , GUADAL IMAR 

3340 DATANace en el Calar del Hundo,- 13 
0 Kt,- 

3350 D AT A 1 26 , 48 , " f r f r 2f 5d 3f ■- 6 , 9 " , J ANDUL 
A 

3360 DATANace en Sierra Morena,- 145 Ka. 

3370 DATA106, 59, 'f 8df d2gl 3i-2, 5' , 6UADIAT 
0 
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3381 DATA, 

339f DATAi74,77,'g2d2gi-5,-lg3d21i-5,2i- 

2, -4h5i-l , -4' , 6UADI ANA HE ÑOR 

3401 DATANace en Hoya de Baza,- 182 «■.- 

3411 DATA148,ll5, , i-5,-21i-3,-216g2i-4,- 

513g2h3uh3u2hglhu2h5',6ENIL 

3420 DATANace en el Pico del Hulhacén,- 

338 Ki.- 

3430 DATA! 

3441 DATA 173, 46 

3451 DATA"R10H-2, 5H+2, 17H*2, 3D3H+3, 1DH-2 
, , - 1 D4F2D4FD2M-6 , 9H-7 , 5G6M-4 , 7L2M- 1 0 
, 5M-6, 4DH-2, -164DH-3, 5D2RF2DG3DH-2, 1ULH- 
4,9L13IUlf9R18f a 
3460 DATAEBRO 

3470 DATA33, 35, •«♦5, 1D6FH+3, -1F2M+2, -4H* 
4 , 5ERFEFR2F4N+ 1 , 3F4REF2R3F2N+3 , - 1 H+4 , 6F3 
RH+2, 4DF5DF5RFRHM, 5H+4, 3N+4, 7RFRH+5, 2U2 
MU 1 , -2RU2EF2RH* 1 ¡ 4R2F3H+ 1 , 564H+ 1 , 6M+2 j 3 

3480 DATAU0,67,'N-l,5L4H-3,-lL763LD462L 
M-3.1M-1, 3', ARAGON 

3490 DATANace en Ibón de Astún,- 192 Ki. 

3300 DATAB9, 53, 'D5H-2, 4H-4, 2H-1 , 9H*3, V , 
AR6A 

3310 DATAAfluente del Aragón, 

3320 DATA l i 4 , 63 , ■ D5M- 1 , 563M-4 , 1 M- 1 , 9D9H- 

2,10",6ALLE6O 

3530 DATANace en el Pirineo Central,- 21 
5 Ki.- 

3540 DATA159.74, B 63ri-7, IH-2, 1362DL6L4H-2 

, 4D3H-2 , 4GD63DB3D2- , SE6RE 

3550 DATANace en el Pico del Segre,- 265 

3560 DATA l 43 , 64 , ■ 1 , 7DG2D5H-3 , 7D3H- 1 , 5F 

1 , NOGUERA PALLARES A 

3570 DATANici en Pía de Beret, 

3580 DATA135,68, , H*l,262D4H-2,6H*2,9n-l, 

7^2,8', NOGUERA RIBA60RZANA 

3590 DATANace en Port de Viella, 

3600 DATA122, 67, "H+3, 2D2G2M+3, 16H-2, 4M+1 

,5H-1,6H*2,5D4F2 , ,CINCA 

3610 DATANace en Fuentes del Cinca, 

3620 DATA69,127,'ER2E5R5H*5,-2H*2,-8RH*2 

,-4U4E3", JALON 

3630 DATANace en Sierra Ministra,- 235 K 
■.- 

3640 DATA101 , 140, 'DLH-3, -4L2H-3, -9H-5, -9 



JILOCA 

3650 DATAAfluente del Jalón, 

3660 DAT A 1 08 , 1 52 , ' H-2 , -6E2R3E2RH+3 , -5U3H 

♦ 1 , -4H+3, -4RH- 1 , -4" , GUADALOPE 

3670 DATANace m la Sierra de Gúdar,- 19 

4 Ke.- 

3680 DATA0 

3690 ' 

3700 ' DATAS RELIEVE 
3710 ' 

3720 DATA49, 69, 'E3F2HE2F2BH54, 74XSI; E3F2 
BU4XSI i BN79, 58XSI; SISTEMA CENTRAL, , 
3730 DATA54, 74, S, SIERRA DE GREDOS,, 
3740 DATA57,70,P,PLAZA DEL HORO ALHANZOR 
.Altitud 2.592 ■., 

3750 DATA73,65,S,SIERRA GUADARRAMA, , 
3760 DATA79, 38, S, SOMGSIERRA, , 
3770 DATA52, 91 , ■ XSI; BH57, 87E3FE2F2* , HONT 
ES DE TOLEDO,, 

3780 DATA43,39,*H364E3H3G4BU5E3F2BU3H2G3 
BU4BE2E2F2E2F2BU5H2G3BU3E4F2" , MACIZO GAL 
AICO,, 

3790 DATA37,39,P,CABEZA DE HANZANEDA, Alt 
itud 1.778 •., 

3800 DATA48, 37, 'XSI; bi50, 32e3í 2hi2f 2' , NO 
NTES DE LEON, , 

3810 DATA50,32,P,TELENO,Altitud 2.188 i. 

3820 DATA49, 20, ■ XSI; E2F2E2F2BLB64XSI; B67 
XS$;BF2XS$; ', CORDILLERA CANTABRICA,, 
3830 DATA66, 20, S, PICOS DE EUROPA, , 
3840 DATA66, 20, P, TORRE DE CERREDO, Altitu 
d 2.648 i., 

3850 DATA89,21,S,H0NTES VASCOS,, 
3860 DATA82,35, , E3F3H2E3F2B63E2F2E2F2BH8 
5, 43XS$; BH93, 48XS$; BH100, 53E4F26E2F2BH10 
2,59XSI;B613E4F2E3F2B615XS$;*, SISTEMA IB 

3870 DATAB3, 43, S, PICOS DE URBION,, 

3880 DATA97,42,P,H0NCAY0,Altitud 2.313 • 



,59, S, SIERRA DE ALBARRACIN, , 
3900 DATA48, 120,E4F262E3F2BH5XS$;BF2XS$; 
BU3E3F2, SIERRA MORENA, , 
3910 DATA68, 112, S, SIERRA MADRONA, , 
3920 DATA57,134,XS$;BE3XS$;BU4XS$;,C0RDI 
LLERA SUBBETICA, , 

3930 DATA74, 127, S, SIERRA CAZORLA,, 
3940 DATA88, 119, S, SIERRA DE SEGURA, , 



3950 DATA58, 142, E2F2BE2XSI; BF2XSI ; , CORDI 
LLERA PENIBETICA,, 
3960 DATA80, 138, S, SIERRA NEVADA,, 
3970 DATA89,132,P,MULHACEN,Altitud 3.478 
i.,Pico láf lito di li Península 
3980 DATA105,17,E3F2B67XS$;XSt;BL17E4F3B 
DI 1 XS$; BU3E3F4B610BL6XS$j B65E3F3E2, PIRIN 
EOS,, 

3990 DATA120,12,P,ANETO, Altitud 3.404 i. 

4000 DATA 129, 54, E2F2BH4E2F2BU3E2FE2F2E2F 
BH3H2G2, CORDILLERA COSTERO CATALANA,, 
4010 DATA0 
4020 ' 

4030 ' DATAS MARES Y COSTAS 
4040 ' 

4050 DATA65,5,H,HAR CANTABRICO,, 
4060 DATA96,3,G,G0LF0 DE VIZCAYA, , 
4070 DATA89,6,C,CAB0 MACHICHACO,, 
4080 DATA81,5,C,CA60 DE AJO,, 
4090 DATA59,2,C,CAB0 DE PEÑAS,, 
4100 DATA36,0,C,CABO 0RTE6AL, , 
4110 DATA9, 51, M, OCEANO ATLANTICO,, 
4120 DATA1B,14,C,CAB0 FINISTERRE, , 
4130 DATA11,96,C,CAB0 DE ROCA,, 
4140 DATA 1 3 , 128, C, CABO SAN VICENTE,, 
4150 DATA38, 138, G, GOLFO DE CADIZ,, 
4160 DATA57, 155, C, PUNTA DE TARIFA,, 
4170 DATA138,98,H,HAR MEDITERRANEO,, 
4180 DATA92, 143, G, GOLFO DE ALMERIA,, 
4190 DATA97, 144, C, CABO DE GATA,, 
4200 DATA114,126,C,CABO DE PALOS, , 
4210 DATA122,95,C,CAB0 DE LA NAO,, 
4220 DATA124,87,6,60LFO DE VALENCIA,, 
4230 DATA154,32,C,CAB0 DE CREUS,, 
4240 DATA0 
4250 ' 
4260 » FIN 
4270 ' 

4280 SCREEN0:COLOR15,4,4:END 
4290 » 

4300 • RUTINA MUSICA 
4310 ' 

4320 PLAY ■ T 1 5#L8V 1 0O5DÍ 1 6C t 1 604FÍ05FÍ ■ : P 
LAY'FIDI16Cll604FI05Fr:PLAY , FID416CII60 
4Ft05Ft04D#05F#04Ci05F" i PLAVF- 
4330 RETURN 
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-224 


1760 


-118 


2130 


-232 


2500 


-250 


2870 


- 61 


3240 


-163 


3610 


-231 


3980 


-255 






660 


-148 


1030 


-150 


1400 


- 36 


1770 


-123 


2140 


-175 


2511 


-143 


2880 


-166 


3250 


-176 


3620 


-144 


3990 


-136 






670 


-142 


1040 


-227 


1410 


- 52 


1780 


-170 


2150 


-131 


2521 


- 99 


2890 


-180 


3260 


-185 


3630 


-129 


4000 


- 25 






680 


- 58 


1050 


- 58 


1420 


-253 


1790 


-145 


2160 


-193 


2530 


-180 


2900 


-131 


3270 


-176 


3640 


-237 


4010 


-180 






690 
700 


- 58 


1060 


- 58 


1430 


-186 


1800 


- 58 


2170 


-1B7 


2540 


- 58 


2910 


-105 


3280 


-180 


3650 


- 64 


4020 


- 58 


TOTAL: 


- 58 


1070 


- 58 


1440 


-213 


1810 


- 58 


2180 


-166 


2550 


- 58 


2920 


- 4 


3290 


-131 


oool 




4030 


- 58 





SUSCRIBETE A EÍS 

Suscribiéndote no sólo tienes la seguridad de te ner todos los meses tu 
MSX CLUB DE PROGRAiMAS en tu casa sino que recibirás 12 
números pagando sólo 10 



BOLETIN DE SUSCRIPCION MSX CLUB DE PROGRAMAS 



.... 



Nombre y apellidos 

Calle 

Ciudad 

D. Postal Teléfono 

Deseo suscribirme por doce números a la revista MSX CLUB DE PROGRAMAS a partir del número 

que pago adjuntando talón a la orden de: MANHATTAN TRANSFER, S.A. - C/f Roca i Batlle, 10-12 - 08023 Barcelona 



N.° 

Provincia 



Tarifas: España por correo normal Ptas. 1 .750, — 

Europa por correo normal Ptas. 2.000 — 

Europa por correo aéreo Ptas. 2.500, — 

América por correo aéreo USA$ 25USA$ 



Importante: Colocar en el sobre: Departamento Suscripciones MSX CLUB. NO SE ADMITE CONTRARE 
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Programa 



Por Enrique I Grazianoi 



VOYACUER 



Este interesante programa de as- 
tronomía permite la visualización 
de las órbitas de un satélite. Indis- 
pensable para los aficionados a la 
astronomía. 



lf mmif nmimm tmim 



VOYAGUER 



POR 



ENRIQUE I . GRAZ I ANO 
PARA HSX-CLUB 



20 'I 
30 't 
40 'I 
50 I 
60 'I 
70 't 
80 'I 
90 'I 

100 tMtftfttltttttfftittttlIttl 

110 CLEAR200 

120 ' INTERRUPTS Y PRESENTACION 

130 'tttmtmmmtmmtttmm 

140 DEFDBLA-Z :ONKEY6OSUB1340,1420:KEY(1 

)0N:KEY(2)0N 
150 CLS:KEYOFF 
160 PRINT'Voyaguer' 

170 FORN=1TO15;FORG=1TO50:COLOR N:NEXT:N 
EXT 

180 COLOR 7,4,4:CLS:G0SUB 1520 
190 ' ENTRADAS DE DATOS 

200 tttttmmmmtmmMttm 

210 CLS:PRINT" Inputs' 

220 PRlNT:PRINT:PRINT:INPUT"Hasa del pía 

neta";h? 

230 PRINT:PRINT:INPUT"Hasa del Voyaguer' 

;HV 

240 CLS 

250 PRINT-Posicion del planeta' 

260 PRINT:PRINT:PRINT: INPUT'posicion x'; 

XP 

270 PRINT:PRlNT:INPUT-posicion y";YP 

2B0 PRINT:PRINT:INPUT'posicion z';ZP 

290 CLS 

300 PRINT'posicion del voyaguer' 

310 PRINT:PRINT:PRINT:INPUT'posicion x'j 

XV 

320 PRINT:PRINT:INPUT'posicion y';YV 

330 PRINT:PRINT:INPUT'posicion z';ZV 

340 CLS 

350 PRINT'velocidad del voyaguer" 

360 PRINT:PRINT:PRINT:INPUT'Velocidad x' 

;VX 

370 PR I MT : PR I NT : I NPUT " Ve 1 oc i d ad y';VY 

380 PRINT:PRINT:INPUT'Velocidad z';VZ 

390 CLS:INPUT'Valor de 5';G:GOSUB790 

400 'DISTANCIAS Y VALORACION DE 




FUERZAS 

410 mmummmmmmum 

420 S=XV-XP 

430 P=YV-YP 

440 Q=ZV-ZP 

450 R*S A 2*P A 2+Q A 2 

460 DIS=SQR(R) 

470 F=6I((HPIHV)/R) 

480 ' Aceleraciones 

490 'tttttilItlttlIftlItlMIIMMttt 

500 AXV-(Ft( (XP-XV)/DIS) ) 

510 AYV=(F*((YP-YV)/DIS)) 

520 AZV=(Ft((ZP-ZV)/DIS)) 

530 ' Velocidades 

540 tttmummmmtmmMtt 

550 VX=VX+AXV 

560 VY=VY+AYV 

570 VZ=VZ+AZV 

580 ' posiciones 

590 ummumttmmmmtm 

600 XV=XV+VX 

610 YV=YV*VY 

620 ZV=ZV*VZ 

630 BEEP: 0=0+1 

640 XN=INT ( ( ( XV+50000 1 ) / 100000 1 ) t200) 





650 IF XN>255THENXN=255 

660 IF XN<0THENXN=0 

670 YN= I NT ( ( ( YV+50000 ! ) / 1 00000 ! ) 1200) 

680 IF YN>200THENYN=200 

690 IF YN<0THENYN=0 

700 IF 0=1THENY=YN:X=XN 

710 ' TRAZADO EN MENORIA 

720 tttmmtmmmttmmttt 

730 POKE50000 ! HJ, XN: POKE55000 !+U, YN:U=U* 

1: IF U=5000 THEN U=0 

740 ' TAZADOS EN PANTALLA 

750 miumnttminimtmm 

760 LINE(X,Y)-(XN,YN),15¡X=XN:Y*YN:PUTSP 
RITE3, (XN-4, YN-4) ,7 

770 L1NE(5,0)-(256,20},1,BF:PRESET(10,0) 
: COLOR 1 5 : PR I NT# 1 , ■ x " ; I NT ( X V ) ; • y";INT(YV 
);' z"INT(ZV)¡PRESET(10, 10) : PRINTil , -vx" 
jINTIVX);' vy';INT(VY);' vz';INT(VZ):C0L 
0R3 

780 GOTO 420 

790 ' INICIALIZACION GRAFICA 

800 » tttmmtmmimtmtmtt 

8 1 0 X J = I N T ( ( ( XP+50000 ! ) / 1 00000 ! ) t200) 
820 Y J= I NT ( ( ( YP+50000 ! ) / 100000 ! ) 1200) 

830 SCREEN2: COLOR 3,l,l:CLS:0PEN'grp:"AS 

1:LINE(0,21)-(200,200),3,B 

840 FOR6H=lTO100:L=INT(RND(l)!200)iH*INT 

(RND(1)I1B0*20):C=INT<RND<1)I14*1):PSET( 

L,H),C:NEXT 

850 FORN=0TO3 

860 FORSI=1T08 

870 READB 

880 S$=S$+CHR$(B) 

890 NEXT 

900 SPRITE$(W)=S$:S$=" 
910 NEXT 

920 PUTSPRITE2, (XJ-4, YJ-4) , 15 
930 PUTSPRITE1, (XJ-4, YJ-4) , 9 
940 PUTSPRITEi, (XJ-4, YJ-4) ,6 
950 RETURN 
960 DATA &D00000000 
970 DATA tb00000000 
980 DATA M00000000 
990 DATA U00000000 
1000 DATA lb00110000 
1010 DATA Hül 10000 
1020 DATA 



36 



1030 DATA «00000000 
1040 'spritil 

1050 data «00000000 

1060 DATA &b 1 10001 10 
1070 DATA tb01101010 
1080 DATA «01001110 
1090 DATA 1501100100 
1100 DATA «01100111 
1110 DATA «01000110 
1120 DATA ib 00000000 
1130 'spritt2 
1140 DATA «00111100 
1150 DATA «01111110 
1160 DATA «11111111 
1170 DATA ttbllllllll 
1180 DATA «llllllll 
1190 DATA «llllllll 
1200 DATA «01111110 
1210 DATA «00111100 
1220 '§priti3 
1230 DATA «00000001 
1240 DATA «00000010 
12S0 DATA «00100100 
1260 DATA «00011000 
1270 DATA «00011000 
1280 DATA «00100100 
1290 DATA «01000000 
1300 DATA «10000000 
1310 'SUBRUTINAS I NTERRUPT 

1320 mmmnmmmummn 

1330 ' ALTERACION DE LAS VELOCIDADES 

1340 SCREEN0: COLOR 7,4 ( 4¡CLS 

1350 INPUT'vx":VX:INPUT"vy';VY:INPUT-vz- 

;vz 

1360 SCREEN2: COLOR 3, 1, l:CLS:LINE(0,2i)- 
(200, 200), 3, B 

1370 PUTSPRITE2, ÍXJ-4, YJ-4) , 13 
380 PUTSPRITEl,(XJ-4,YJ-4),9 
1390 PUTSPRITE0,(XJ-4,YJ-4),6 
1400 FOR6H=lTO100:L=INT(RND(l)t200):í1=IN 
T(RND(l)tl80*20):C»INT(RND(l)tl4*l):PSET 
(L,H) ,C:NEXT:RETURN 
1410 ' TRAZADO RAPIDO 
1420 SCREEN2:C0L0R 3,1,1:CLS:LINE(0,21)- 
(200, 200), 3, B 

1430 FORGH=1TO100:L=INT(RND(1)$200):H=IN 
T ( RND ( 1 ) t 1 80+20 ) : C= I NT ( RND ( 1 ) t 1 4+ 1 ) : PSET 
(L,h),C:NEXT 

1440 PUTSPRITE2, ÍX J-4, YJ-4) , 15 
1450 PUTSPRITE1, (XJ-4, YJ-4) ,9 
1460 PUTSPRITE0,(XJ-4,YJ-4),6 
1470 FORHS*0TOU-1 

1 480 QN=PEEK ( 50000 ! +NS > : QE=PEEK ( 55000 ! H( 
S) 

1490 PUTSPRITE3,(QN,QE),7 
1500 NEXT 
1510 RETURN 

1520 PRINT:PRINT:PRINT:PRINT:INPUT a ¿fluie 
res instrucciones a ;A$;IF INSTR ( A$, "s" ) =e 
AND INSTR(A$, a S a )=0 THEN RETURN 



1530 » INSTRUCCIONES 

1540 'tttmmtttmttmmmttt 

1550 COLORI , 15, 15: CLS: PRINT'Voyager : Inst 
rucciones MSI " 

1560 PRINT: PRINT: PRINT'Este es un progra 
■a de siiulaciorí, "¡PRINT'su objetivo es 
recrear los sucesos a :PRINT a acaecidos a u 
n satélite con posición" : PRINT'y velocid 
ad determinada cuando se en-"; ¡PRINT" -cu 
entra en un caipo gravitatorio':PRINT a pl 
metano.' 

1570 PRINTiPRINTsPRINT'PULSA SPC PARA CO 
NTINUAR" 

1580 IF STRIG(0)<>-1 THEN 1580 

1590 COLORI, 15, 15: CLS: PRINT" Voyager : Inst 

rucciones NS2* 

1600 PRINT: PRINTtPRINT'Se te pedirán las 
posiciones de el " : PRINT'pl aneta y el ta 
telite artificial':PRINT'en las tres dii 
ensiones del espacio a :PRINT a Los rangos d 
e (X,Y,Z) son de -50.000 a 50.000 a 
1610 PRINT:PRINT:PRINT a PULSA SPC PARA CO 
NTINUAR 1 

1620 IF STRI6(0)<>-1 THEN 1620 

1630 CLS: PRINT "Voyager: Instrucciones N23 
■ 

1640 PRINTi PRINTi PRINT'Luwgo se te pedir 
an la vilocidad a iPRINT l tridiiensional de 
1 satehte":PRINT"respecto al planeta (V 

X,VY,VZ)' 

1650 PRINT ¡PRINT ¡PRINT "PULSA SPC PARA CO 
NTINUAR' 

1660 IF STRI6(0)<>-1 THEN 1660 

1670 CLS:PRINT a Voyager: Instrucciones N24 
■ 

1680 PRINT: PRINT:PRINT a Finaliente deberá 
s introducir el a :PRINT a valor de la const 
ante de NeNton a :PRINT a eite paso es euy i 
■portante, a :PRINT a ya que variando la var 
rallé" 

1690 PRINT'puedes variar la relación ent 

re":PRINT*un punto en la cuadricula y la 

':PRINT"porcion de espacio que represent 

a a :PRINT a en la realidad" 

1700 PRlNT:PRINT:PRINT a PULSA SPC PARA CO 

NTINUAR" 

1710 IF STRI6(0)<>-1 THEN 1710 

1720 CLS:PRINT a Voyager: Instrucciones N!5 

1730 PRINT:PRINT:PRINT a La tecla Fl esta 
habilitada para":PRINT"variar (VX,VY,VZ) 

en vuelo y la"jPRINT a tecla F2 para hace 
r la repeticion a :PRINT a del vuelo a eayor 

velocidad, pero" 

1740 PRINT a perderas el trazo de la orbit 
a si" ¡PRINT* lo haces.' 
175J u PRINT:PRINT:PRINT a PULSA SPC PARA CO 

1760 IF STRI6(0)O-1 THEN 1760 
1770 RETURN 



Test de listados 





- 58 


610 


-237 


1210 


-144 


20 


- 58 


620 


-240 


1220 


- 58 


30 


- 58 


630 


-138 


1230 


-141 


40 


- 58 


640 


-226 


1240 


-141 


50 


- 58 


650 


-170 


1250 


-142 


60 


- 58 


660 


-178 


1260 


-142 


70 


- 58 


670 


-228 


1270 


-142 


80 


- 58 


680 


- 62 


1280 


-142 


90 


- 58 


690 


-180 


1290 


-141 


100 


- 58 


700 


-203 


1300 


-141 


110 


-105 


710 


- 58 


1310 


- 58 


120 


- 58 


720 


- 58 


1320 


- 58 


130 


- 58 


730 


- 74 


1330 


- 58 


140 


-122 


740 


- 58 


1340 


- 64 


150 


-144 


750 


- 58 


1350 


- 90 


160 


- 39 


760 


- 67 


1360 


-158 


170 


-165 


770 


-137 


1370 


-211 


180 


-250 


780 


- 60 


1380 


-206 


190 


- 58 


790 


- 58 


1390 


-202 


200 


- 58 


800 


- 58 


1400 


-159 


210 


- 49 


810 


-216 


1410 


- 58 


220 


-158 


820 


-218 


1420 


-158 


230 


- 70 


830 


- 20 


1430 


-215 


240 


-159 


840 


-215 


1440 


-211 


250 


- 51 


850 


-198 


1450 


-206 


260 


-233 


860 


- 17 


1460 


-202 


270 


- 32 


870 


-201 


1470 


- 94 


280 


- 34 


880 


-246 


1480 


- 7 


290 


-159 


890 


-131 


1490 


-185 


300 


-224 


900 


-221 


1500 


-131 


310 


-239 


910 


-131 


1510 


-142 


320 


- 38 


920 


-211 


1520 


-163 


330 


- 40 


930 


-206 


1530 


- 58 


340 


-159 


940 


-202 


1540 


- 58 


350 


- 39 


950 


-142 


1550 


-241 


360 


- 22 


960 


-140 


1560 


- 72 


370 


- 77 


970 


-140 


1570 


-173 


380 


- 79 


980 


-140 


1580 


-139 


390 


- 38 


990 


-140 


1590 


-242 


400 


- 58 


1000 


-142 


1600 


-110 


410 


- 58 


1010 


-142 


1610 


-173 


420 


-138 


1020 


-140 


1620 


-179 


430 


-137 


1030 


-140 


1630 


- 86 


440 


-140 


1040 


- 5B 


1640 


-208 


450 


- 47 


1050 


-140 


1650 


-173 


460 


-248 


1060 


-144 


1660 


-219 


470 


-138 


1070 


-144 


1670 


- 87 


480 


- 58 


1080 


-144 


1680 


-228 


490 


- 58 


1090 


-143 


1690 


- 98 


500 


- 38 


1100 


-145 


1700 


-173 


510 


- 41 


1110 


-143 


1710 


- 13 


520 


- 44 


1120 


-140 


1720 


- 88 


530 


- 58 


1130 


- 58 


1730 


- 53 


540 


- 58 


1140 


-144 


1740 


- 59 


550 


- 43 


1130 


-146 


1750 


-173 


560 


- 46 


1160 


-148 


1760 


- 63 


570 


- 49 


1170 


-148 


1770 


-142 


580 


- 58 


1180 


-148 






590 


- 58 


1190 


-148 


TOTAL: 




-234 


1200 


-146 


21556 



Programa 







iPor José Delgado 



SIPPER 



He aquí un divertido juego en que tendréis que 
medir vuestra habilidad sorteando diferentes obs- 
táculos. Espectacularidad y emoción son las prin- 
cipales características de este juego. 

Por ser el juego de gran longitud indicamos las 
principales variables para que os sea mas fácil de 
comprender. 



VI 

O . 

P 
D 
A 

Y i 

C(K) 

M i 

W 

Z(F) 

F 

N : 
X(K) 
K) 



i vidas 

i comprueba si se supera el sector 

0 el nivel 

1 conectar y desconectar pantalla 
controla cursor 

i controla el tiempo 
verticalidad de la lancha 
= color de obstáculos 
i metros hechos 

= metros a efectuar 
= nivel 

= coordinadas de piedras y lanchas 

y turistas y islas 

clase de piedra u otro obstáculo 
= joystick o cursor 
= puntos 



1 ittimtmtmim 

2 't sipper t 

3 't por José Delgado! 

4 't para USX CLUB I 

5 'mmtttmmtm 

10 CLEAR. 

20 ON ST0P60SUB47if:ST0PQN 
30 GOSUB2200 
40 6OSUB240 
50 ' ——i 
60 'I BUCLE | 
IHMUUHII 
80 D=STICK(C):P=USR1(0) 
"0 A=A>.5:VPOKE6949,A:IFA=194THEN380 
100 VP9KE6912, Y 
110 VP0KE6916,Y 

120 IFD=lTHENY=Y-9: IFY<84THENY=84 
130 IFD=5THENY=Y*9:IFY>174THENY=174 
140 IFD=3THENV=V+1: IFV>19THENV=20 
150 IFD= 7 THENV=V-1:IFV<NTHENV=N 
160 ONSPPITE6OSUB1730 
170 H S «*V:IFn>Z(F)THEN510 
180 FQPK=3T08 
1"0 X(K>=X(!0-V 

200 IFX \ÍH 10THENX (K) -255: L ÍK) =INT (RND ( 1 

)t90)+84:VPOKE6912+4tK,L(K) 

210 VP0KE6913+4tK,X(K) 

220 NEXTK 

230 GOTO80 





913*4IK,X(K 



270 F0RK=3TQ8 

280 VPQKE6912+4ÍK,L(K>:VP0KE69 
):VP0KE6914*4IK,E(K)I4:VP0KE6915*4IK,C(K 

) 

290 NEXTK 

300 VPQKE6°12.Y:VP0KE69i3.74:VPQKE6914,4 
;VP0KE6915,15 

310 VPOKE6916,Y:VPOKE6917,90:VPGKE6918,8 
:VP0KE6°19,15 

320 VPQKE6948,20:VPOKE6949.A:VPOKE6950,1 
2:VP0KE6951,1 

330 PUTSPRITE10, (210,201,6,3 

340 IFC=0THENC$="PULSA LA BARRA ESPACIAD 

OPA'ELSEC$='PULSA EL BOTON DISPARADOR" 

350 PSET(26,B5). CP1: COLORIS: PRINTtl , C$ 

360 IFSTRIG(C)=-1THEN370ELSE360 

370 L ! NE ( 2f . 84 > - ( 236 • 94 ) , CH . BF : S0UND8 , 1 3 

: S0UND7. 33: S0UND6. 15: SPPITEON: TIME=TI : GO 

TO50 



3*0 
400 



I TIME OVER 



410 G=1:8EEP 
420 FOFF=1TQ10 
430 VP0KE6951, 1 
440 VP0KE6915. 1: VP0KE6919, 1 
450 FORT=1TO200:NEXTT 
460 VPQKE6951.15 
470 VP0KE6 t »15,15:VP0KE69P.15 
4B0 FQPT=ITO200:NEXTT 
4"0 NEXTR 
9ff 60IUI173I 
510 

520 ! | LLEGAR A NETA I 

53i » nann 

540 I=I+1:F0RK=3T0B 

550 X(K)M(K)-V:IFX(K)<10THENX(K)=255:VP 

OKE6912+4IK,200 

560 VP0KE6913*4tK,X(K) 

570 NEXTK 

580 IFK25THENGOTO80 
590 A=TIHE 
600 F0RT=1T025 
610 P=USRl(f) 

620 IFY>130THENY=Y-4:VPOKE6912,Y:VPOKE69 
16, Y 

630 IFY< 121THENY-Y+4: VP0KE6912, Y: VP0KE69 



16,Y 

640 FORR=ITO60:NEXTP 

650 NEXTT 

660 BEEP:TI=0 

670 F0RR=1T09 

680 P'JTSPPITE21,(?7,Y-l),ll,13 

690 FORT=1TO150:NEXTT 

700 PUTSPPITE21. (97,Y+2) ,11, 14 

■M0 FORT=1TO150:NEXTT 

720 NEXTR 

730 FORR=1TO1000:NEXTR 

740 f 

750 » I COMPROBAR SECTOR o NIVEL | 
760 ¡ 

770 0=0*1 :IFO=1THEN780EL 
780 W$=-SECTOP-:GOT- 
790 W$="NIVEL" 

800 ' — - PANTALLA DE PASE 

810 SCREEN 1 : COLOR 1 5 . 1 v 1 : CLS 

820 L0CATE8, 24: PRINT" i ,> 

830 L0CATE8,24:PRINT" (ENHORABUENA | " 

B40 PRINTTAB(2);"i 1 ' 

HQHi' 

850^PRINTTAB(2);"|HAS SUPERADO ESTE ";«$ 

860 PRINTTAB(2>;"' 

WQN J " 

870 PPINTTAB(9);V- 



B80 PRINTTAB(9);"|HAS HECHO I" 

890 PPINT" r 1 t 

900 PRINT" | TIEMPO | 
LOCATE14,22:PRINTA/50;"seg." 

910 PRINT" | 1 

920 PPINT" | PUNTOS | |": 
LOCATE14,22:Z=Z*M*((100-(A/50)!t50):PRIN 

930 PPINT" l- 



I": 
H" 



940 PRINTTABI8); "FICHA TECNICA 
DEL SISUIENTE TRAYECTO" 
950 PRINT" r 



, 

960 PPINT" | NIVEL | |"i 
L0CATE18, 22: IF0*1 THENPRINTFELSEPRINTF+1 

970 PRINT" | 1 |« 

980 PRINT" | SECTOR | |fj 
L0CATE17,22:IF0=1THENPRINT"N0CTURN0"ELSE 
PRINT'DIURNO" 

990 PRINT" | 1 1" 

1000 PRINT" | DISTANCIA | |" 
: L0CATE15, 22: IFO=lTHENPRINTZ(F) ; "its. "EL 
SEPRINTZ(F*l);"its." 

1010 PRINT" | 1 1" 

1020 PRINT" | CATEGORIA | |" 
: LOCATEM, 22: IFÜ*1THENPRINTK$ (F) ELSEPRIN 
TKKF+l) 

1030 PRINT" 1 ' " 

1040 FORR=1TO1500:NEXTR 

1050 LOCATE3,0:PRINT"PULSA":LOCATE21,0:P 

RINT" Fl ":KEY(1)0N 

1060 FORR=1TO710:NEXT 

1070 LOCATE3,0:PRINT" ":LOCATE21,0:P 



RINT" - .-• 
1080 FORR=1TO700:NEXT 
1090 ONKEY6OSUB1110 
1100 6OTO1050 
1110 SCREEN2 
1 120 IF0=1THENCC= 1 : CM= 12: S=8: H=0: A*30: 60 
SUB1490:6OTO40ELSEU3§ 
1130 F=F*1:O=0:6OSUB1400:GOTO40 

U40 ' mumummm 

1150 ' | ESCOJER NIVEL I 
1160 ' HHHH 
1170 SCREEN 1 : COLOR 1 , 1 1 , 1 1 : CLS 
1180 LOCATE10,24:PRINT"HHHr 

1190 PRINTTAB(10);"| |" 

1200 PRINTTAB(10):"| NIVEL I" 

1210 PRINTTAB(10);"| |" 

1220 PRINTTAB ! 10) ; "HH" 

1230 PRINT:PRINT: PRINT 

1240 PRINTTAB(4);"1 --> PRINCIPIANTES" 

1250 PRINT 

1260 PRINTTAB(4)j"2 --> APRENDICES" 
1270 PRINT 

1280 PRINTTAB (4); "3 -> AFICIONADOS B" 
1290 PRINT 

1300 PRINTTAB(4);"4 --> AFICIONADOS A" 

1310 PRINT 

1320 PRINTTAB(4);"5 -> PRE-PROFESIONAL 
ES" 

1330 PRINT 

1340 PRINTTAB(4);"6 --> PROFESIONALES" 
1350 PRINT: PRINT:PRINT 
1360 PRINTTAB(5)j"Eicoji tu citegorii" 
1370 F*=INKEY$ 

1380 IFF$<"1"ORF$>"6"THEN1370 
1390 F*VAL(FI) 
1400 N=F+8 

M10 ' ■HMHDflil 

1420 ' | INICIACION | 

M30 ' mmmmmmtm 

1440 CH*2:CC«7:S«4:H»0:A»30 
1450 SCREEN 2 

1460 H*Z(F) 

1470 Z(1)*3100:Z(2)=3400:Z(3)=4300:Z(4)= 
4800: Z (5) =5500: Z(6> =6100 

1461 Kf(l)="PRINCIPIANTES":K$(2)="APREND 
ICES":K$(3)='AFICI0MAD0S B":K$(4)="AFICI 
ONADOS A":K$(5>*'PRE-PR0FESI0.":KI(6)«-P 
ROFESIONALES" 

1490 F0RK*3T08 

1500 L(K)>INT(RND(l)t9f)^f 

1311 E(K)=INT(RND(1)I2)+S 

1521 C(K)«IIIT(RND(l)tl5)*liIFC(K)-40RC(K 
)*1TH£N152I 

1331 NEXTK 

1540 IFL(4)>12ITHENL(4)=120 

1551 I*I:YM54:V*N*F:X(3)*42:X(4)*85:X(5 

)*12B:X(6)=169:X(7)*212:X(8)=254 

1560 ' ■■■■■■■■■■ 

¡1371 ' | PANTALLA DE JUEGO I 
1581 



1391 P-USR2(f) 

1610 COLORI , 4, CC: CLS 

1610 LINE(0,90)-(256,0),CC,BF 

1620 D$="E3R4F5E5U3E3R2E3R3E5F6U7E3R2E4D 

3E6F2E3F12R3E4U3R2F4R2F5R2E4F3R3F7R2F3F2 

R2E5RE7R2U2E7R2E3F5D2F3R2D4F7D3F3R3D2R3E 

2RE2" 

1630 E$="RU3E4U4E2U3E8F5R2F7D3R5F3R6E4RE 

4F6R2F3R2F5R4F3R3D14L259" 

1640 PSET (0, 80) , CU: DRAND$: PSET ( 177, 77) , C 

HsDRAHEl 

1650 PAINT(10,90),CH 

1660 LINE(0,0)-(256,10),12,BF 

1670 LINE(0,10)-(256,20),9,8F 

1680 LINE(0,20)-(256,36),U,BF 

1690 PSET(75,2),12:C0L0R1:PRINTI1,'M SI 

PPER 

1700 PSET(10,12),9:COLOR15:PRINTIl,"Nive 

1";F;' Vidas';VI;" " 

1710 P=USR3(0) 
1720 RETURN 

1730 ' mni 

1740 » | EXPLOSION I 
1750 ' HHHI 
1760 SPRITEOFF 
1770 TMIHE 

1780 PUTSPRITE0,(80,Y),9,6 

1790 PUTSPRITE1,(84,Y+4),6,10 

1 800 SOUND0, 0: S0UND1 , 5: S0UND2, 0: S0UND3 , 1 

3: S0UND4, 255: S0UND5, 15: S0UND6, 30: S0UND7, 

0:SOUND8,16:SOUND9,16:SOUND10,16 

1 8 1 0 SOUND 1 1 , 0 : SOUND 12,5: SO UN D 13,0 

1820 FORR S 1TO40:NEXT 

1830 SOUND12,56:SOUND13,0 

1840 FORR a lTO800:NEXT 

1850 PUTSPRITE0, (200,200), 0,0 

1860 PUTSPRITE1,(B0,Y),13,7 

1870 FORR=1TO800:NEXT 

1880 PUTSPRITE1, (86, Y*6), 10,11 

1890 FORR=1TO800:NEXT 

1900 PUTSPRITE1, (200,200), 0,0 

1910 FORR=1TO1600:NEXTR 

1920 Z=Z+N 

1930 ' -- -- 

1940 ' - CONPROVAR VIDAS - 
1950 > 

1960 VI=VI-1 
1970 IFVI=0THEN3440 

1980 ' mmunnii 

1990 ' | HUERTE DE LANCHA I 

2000 ' mmmmmmmmi 

2010 SCREEN1:C0L0R15,1,1:CLS 
2020 IF6=0THEND$="HAS HUERTO AHOGADO " ELS 
EIF6=1THEND$="SE AGOTO EL TIEHPO":G=0 
2030 L0CATE6, 0: PRINT" i , 

. I S I P P E R I i 

m »■ 



2040 L0CATE2,4:PRINT" r 
*hn I LO 



I 
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I» CíOSCCIO 











2050 L0CATE6,7:PRINTD$ 

2060 L0CATE4, 1 1 : PRINT"ESTA ES TU SITUACI 

ON:" 

2171 PRINT:PRINT:PRINT" VIDAS:";VI 

20B0 PRINT" PUNT0S:'}Z 

2090 PRINT" TIEMPO EMPLEADO: TI/30; 'seg 
■ 

2100 PRINT" TIEHPO QUE FALTA: B5- (TI /50 

);'wg' 

2110 PRINT" METROS RECORRIDOS: a ; M 

2120 M*Z(F)-H:PRINT" METROS QUE FALTAN: 

*iHN 

I MI 

2130 L0CATE8 , 22 : PR I NT " PULSA F2 " 

2140 FORR=1TO500:NEXTR 

2150 L0CATEB,22:PRINT" 

2160 0NKEY60SU8 , 2 1 90 : KE Y ( 2 ) ON 

2170 FORR- 1 TO500 : NE XTR 

2180 GOTO2130 

2190 6OSUB1450:GOTO40 * 

2200 ' wmmmmmmm 

2210 ' | LECTURA DE SPRITES I 

2220 ' HHHMW 

2230 POKEtHFCAB, 1 : KEYOFF: SCREEN1 , 2: COLOR 

15,0,0:CLS 

2240 L0CATE4, 3: PRINT" JOSE DELGADO SARCIA 

2230 LOCATE13,B:PRINT'pre5Mtí B 

2260 L0CATE6,12:PRINT"HHHHHBHU 
I 

I S I P P E R | | 

■— — — ' 

2270 L0CATE3,22:PRINT"... POR FAVOR ESPE 
RE ..." 

22B0 RESTORE4500 
2290 F0RR-1T09 

2300 F0RT=1 T032: READW: Y$=Y*+CHR$ ( N) : NEXT 
T 

2310 SPRITE$(R)*Y$:Yf»"" 
2320 NEXTR 
2330 FORR=10TO14 

2340 FORMTOB: READN: Y$=Y$+CHR$ (H): NEXTT 
2350 SPRITE$(R)=Y$:Y$=" 
2360 NEXTR 

2370 ' ■■■■■«■« 

2380 ' | INTRODUCIR C.H. I 

2390 ' HHMM 

2400 RESTORE4450 

2410 FORR=60000!TO60068! 

2420 READO: POKER, 0: NEXTR 

2430 DEFUSR 1 =60000 ! : DEFUSR2=65: DEFUSR3=6 

B 

2440 ' ■MMÍWMRUÍI 

2450 ' | PANTALLA DE PRESENTACION I 
2460 ' 

2470 DEFINTC-Z 



24B0 0PEN"6RP:"ASil 

2490 A(1)M000:A(2)M000:A(3)-1000:X$(1) 
*'SIPPER":X$(2)*"SIPPER":X$(3)s'SIPPER": 
Z*0 

2500 SCREEN2: COLORI 1, 15, lsCLS 
2510 P=USR2(0) 

2520 LINE(3,3)-(252,188),1,BF 

2530 LINE(65,10)-(55,60),11:LINE(75,10)- 

(65,60):LINE(85,10)-(95,60):LINE(95,10)- 

(105,60) 

2540 H«*"BH55,60R10BR30R10BH50BR10R10FD3 

FD3FD3FD3FEU3EU3EU3EU3ER10BL26BD30FD3FD3 

FD3FD3FD2R1 1U2EU3EU3EU3EU3E" 

2550 S$="BM105,60R36BU10L38BU11BR16R21BU 

9R5L29BU12R44BU9L48' 

2560 B$«"C10R12G10R1568L15624L12E24L15E8 
R15E10610L1568D5R10619D8R12E24R15E8U8L9E 
4U5" 

2570 CIRCLE(138,44),16,11,5,1:CIRCLE(13B 
,44),6,li,5,l:CIRCLE(117,24),15,ll,2,5:C 
IRCLE(117,24), 6,11, 2,5 
25B0 LINE(161,10)-(172,30):LINE(153,11)- 
162, 35) : LINE (162, 35) -'153,60! :LINE( 153, 
60)-(163,60):LINE(163,60)-(172,45) 
2590 LINE(172,45)-(181,60):LINE(1B1,60)- 
(191,60) :LINE(191,60)-(1B2,35):LINE(182, 
35)-(191,10):LINE(182,10)-(172,30):LINE( 
1B2,10)-(191,10) 

2600 DRANM$:PAINT(70,12),11:PAINT(B9,20) 
,11:PAINT(75,30),11 
2610 DRANS*:PAINT(125,5B),U 
2620 R$«"C3L30D30R30D30L30BR45C8U60BR15C 
5R30D30L30D30U60BR45C2R30D30L30D30U60BR4 
5C10R30L30D30R30L30D30R30BR15C9U60R30D30 
L30' 

2630 F0RRMT07 

2640 PSET(41+R,75*R),1:DRA*R$ 
2650 NEXT 

2660 LINE(60,150)-(196,17S),5,BF 
2670 LINE(45,176)-(2il,190),12,BF 
2680 LINE(220,109)-(242,142),9:LINE(212, 
109)-(234,142),9:LINE(234,142)-(242,142) 
,9:PA1NT(236,136),9 

2690 PSET(70,155),5:COLOR15:PRINTtl,"l - 
-> CURSOR" 
2700 PSET(70,165),5:PRINTI1,"2 --> JOYS 
TICK" 

2710 PSET(55, 180), 1:PRINTI1, "PULSA LO QU 
E DESEES" 
2720 P=USR3(0) 
2730 PLAY * V 1 4M9990S9T 1 40O4L8EEEEL 1 66FFEL 
4DL8DDEFL46L805CR8L804EEEEL16GFtFEL4DL8G 
G A . GL 1 6FIGABL4GL 1 66BA6FtEDIELB05C . 04FIL4 
GR1R1" 

2740 N$=INKEY$ 
2750 R-RND (1 ) 

2760 IFW<"l"ORM>"2"THEN2740 




2770 C=VAL(M)-1 

2780 T=200:FORR=0TO97STEP6:M-6 

2790 LINE(0,R)-(256,R+6),1,BF:LINE(0,T)- 

(256,T-6),1,BF:NEXTR 

2800 ' HrflMHHI 

2810 ' | PANTALLA DE MENU 
2820 

2830 BEEP 

2840 COLOR0, 0, 0: SCREEN1 : COLOR 15 , 1 , 1 : CLS 
2850 RESTORE4660: F0RR=792T0799: READQi VPO 
KER,Q: NEXTR 

2860 RESTORE4660: F0RR=872T0B79 : READQ: VPO 
KER,0: NEXTR 

2870 RESTORE4660:FORR=960TO967:READQ:VPO 

KER,Q: NEXTR 

2880 RESTORE4670 

2890 F0RR*8T047 

2900 READQ: VPOKER.Q 

2910 NEXTR 

2920 T=240:SOUND0,T:SOUND8,14 
2930 L0CATE6,24:PRINT"cíxcixcixcixcixci" 
2940 T=T-9:SOUND0,T 
2950 PRINTTAB(6);"i x" 
2960 T=T-9:SOUND0,T 
2970 PRINTTAB(6);"x v 6 • • ♦ ♦ c" 
2980 T=T-9:SOUND0.T 
2990 PRINTTAB(6);"c •" 
3000 T=T-9:SOUND0,T 
3010 PRINTTAB(6);"ixcixcixcixcíxcix" 
3020 T=T-9:SOUND0,T 
3030 PRINT:T=T-9:SOUND0,T 
3040 PRINT:T=T-9:SOUND0,T 
3050 PRINTTAB(9);" r 



1 



3060 M-9:SOUND0,T 

3070 PRINTTABÍ?) I MENU 

3080 T=T-9:SOUND0,T 

3090 PRINTTAB(9);" 




3100 T=T-9:SOUND0,T 
3110 PRINT:T=T-9:SOUND0,T 
3120 PRINTTAB(8) ; - INSTPUCC IQNES " 
3130 T=T-9:SOUND0,T 
3140 PRINT:W-5:SOUND0,T 
3150 PRINTTAB (8) : "EL JUEGO" 
3160 W-9:SOUND0,T 
3170 PRINT:T*T-9:SOUND0,T 
3180 PRINTTAB (8) ; "LOS HEJORES" 
3190 T=T-9:SOUND0,T 
3200 PRINT:T=T-9:SOUND0,T 
3210 PRINT:T*T-9:SOUND0,T 
3220 PRINT;M-9:SOUND0.T 
3230 PRINT:T=T-9:SOUND0,T 
3240 PRINT:T=T-9:SOUND0,T 
3250 IFC=0THENPRINTTAB(2);"ESCOJE LO QUE 
DESEES CON < CURSOR > Y < RETURN > 
":GOTO3270 

3260 PRINTTAB(2);"ESC0JE LO QUE DESEES C 

ON < JOYSTICK > Y < DISPARO >' 

3270 ' — - ESCOJER OPCION 

3280 BEEP:T=87 

3290 D=STICK(0):P=STICK(1) 

3300 PUTSPRITE12. (66,T) ,11,12 

3310 IFD=10RP=1THENT=T-16: IFT<87THENT=87 

3320 IFD=50RP=5THENT=W6:IFT>119THENT=l 

19 

3330 IFINKEYf=CHR$(13)0R STRIG (0 1THEN 
3410 

3340 VPOKE8204, 241 : VPOKE8205, 129: VP0KE82 
07,49 

3350 FORR=1TO100:NEXT 

3360 VPOKE8204, 49: VPOKE8205, 241 : VPOKE820 

7,129 

3370 FORR a lTO100:NEXT 

3380 VPOKE8204.129;VPOKE8205,49:VPOKEB20 

7,241 

3390 FQRR=1TO100:NEXT 

3400 GOTO3290 

3410 IF T=B7THEN4230 

3420 1FT=103THENVI=5:TI=0:GOSUB1140:GOTO- 




- 



3430 
3440 
3450 

3460 

3470 ' 

3480 ' - COMPROBAR PUNTUACION - . 

3490 ' 

3500 
3510 
3520 
3530 
J5« 
3550 
3560 



IFT=119THEN3780 
J MAXIMAS PUNTUACIONES 



GOSUB4030 

SCREEN0:COLOP15.8:CLS 
IFZ>A!35THEN3530EL3E3780 



» - INTRODUCIR NOMBRE - 
' _ 

LOCATE2,0:PRIN T "HB | 



m m i lili 
i iii lililí 

II ■ l ■ ■ ■ 
mi lili i ■" 

3570 L0CATE2,5:PRINT" | | | | 

III MU II I 

n i 

3580 L0CATE3, 8: FRINT n ENHORABUENA HAS CON 
SEGUIDO UNA DE LAS TRES HEJORES PÜN 
TUACIONES' 

3590 L0CATE12,l" s PFTNT" n i — V 

h / 



3600 BEEP:PLAY"V13T130H6500S10O4L45L16O5 
C04B05CDL404GL16SF+6AL4EL166FEDL4EL8CR8L 
4DL166F+6AL4DL16AG*A05CL404BL16ABC5CC*L4 
DLB04GR4R1" 

3610 LOCATE?. 12: PR INT" INTRODUCE TU NQMBF 



3620 L0CATE5. 14:PPINT" , 

m ( ":L0CATE5,15:PRINT" | | 

|-:L0CATE5.16:PPINT- 1 

HOQ 1« 

3630 L0CATE6, 13:PPINT2 

3640 U$=INKEY$:Q$*"":K$="":L0CATE15.15 

3650 F0RRMT015 

3660 K$=INPUT$(1) 

3670 IFK$=CHRS (8) ORK$=CHR$ (9) ORK$=CHR$ (-1 

1 ) ORK$=CHR$ ( 18) ORKf =CHR$ (28) ORK$ s CHR$ (29 
) ORK$=CHR$ ( 30 ) ORK$=CHR$ ( 31 ) ORK$=CHR$ ( 1 27 

THENLOCATE15, 15: PRINT" 
6OTO3640 

3680 IFK$=CHR$(13)THEN3740 
3690 IFK$O""THEN3710 
3700 5OTOT170 
3710 PRINTKI; 
3720 Q$=Q$+K$ 
3730 NEXTR 
3741 FORR S 1TO500: NEXTR 
3750 IFZ>A(1)THENA(3)*A(2):XI(3)=X$(2):A 
(2)=A(1):X$(2)=X$(1):A(1)=Z:X$(1)=Q$:G0T 
03780 

3760 IFZ>A(2)THENA(3)=A(2):X$(3)=X$(2):A 

2) =Z:K$(2)=Q$:6OTO3780 

3770 IFZ>A (3) THENA (3) =2: X< (3) =Q$: 60T0378 



0 

3780 
3790 



I PANTALLA DE LOS HEJORES I 



3810 SCREEN1 : COLORIS, 1,1:CLS 

'3820 RESTORE4660: F0RR=792T0799: READQ: VPO 

KER,Q: NEXTR - 

3830 RESTORE4660 : F0RR=872T0879: READQ: VPO 
KER,Q: NEXTR 

3840 REST ORE 4660 : FORR=960TO967 : READQ: VPO 
KER.Q: NEXTR 

3B50 RESTORE 4670 :F0RR=8T047: READQ: VPOKE 
R,Q: NEXTR 

3860 L0CATE6,1: PRINT" i 1" 

3870 L0CATE6,2:PRINT"| OM« » t I' 

3880 L0CATE6,3:PRINT" ¡ '" 

3890 L0CATE4,6:PRINT'L OS MEJORE 
S" 

3900 LQCATE2,8:PRINT"cíxcixcíxcixcixcixc 
■xcixc" 

3910 PRINTTABÍ2) ;"«":PRINTTAB(2); "x":PRI 
NTTAB(2);'c':PRINTTAB(2);V:PRINTTAB(2) 
;"x":PRINTTAB(2);"c":PRINTTAB(2);"«":PRI 
NTTABÍ2); "x":PRINTTAB(2);"c":PRIIilTTAB(2) 
jV 

3921 L0CATE26,9:PRINTV:L0CATE26:PRINT' 

x":L0CATE26:PRINT"c':L0CATE26:PRINTV:l 

0CATE26:PRlNT"x":L0CATE26:PRINT"c":L0CAT 

E26: PRINT"»" : L0CATE26: PRINT'x ': L0CATE26: 

PRINT"c":L0CATE26:PRINT"«" 

3930 L0CATE2, 18:PRINT"xcíxcixcíxc«c«« 

xcixcix" 

3940 PI»f:F0RR«HT015STEP2:PI=PI*l: LOCAT 
E3,R:PRINTA(PI):L0CATEll,R:PRINTX$(PI)iN 
EXTR 

3950 IFC=0THENLOCATE5,22:PRINT'PRESIONA 

EL ESPACI0'ELSEIFCMTHENL0CATEI,22iPRIMT 

'PRESIONA EL BOTON DISPARADOR* 

3960 VP0KE82f4,241:VP0KE82l5,129:VP0KE82 

17,49 

3970 FORR=ITO200:NEXT 

3980 VPOKE8204 , 49: VP0KE82IS, 24 l : VP0KE82I 

7,129 

3990 FORR=1TO200:NEXT 

4010 VPOKE8204,129:VPOKE8205,49:VPOKE82# 

7,241 

4010 FORR=1TO200:NEXT 

4020 IFSTRI6(C)=-1MNZ=0:6OTO2800ELSE39 

60 

4030 » wtmmmmmmmmm 

4040 ' | PANTALLA DEL PERDEDOR I 
4050 ' 

4060 SCREEN2:C0L0R15,1,1:CLS 
4070 P=USR2(i) 
4080 F0RR«1T07 

4090 PSET(4l+R,15*R),l:DRAMRI 
4100 NEXT 

4110 LINE(220,49)-(242,82),9sLINE(212,49 
)-(234,82),9:LINE(234,82)-(242,82),9iPAI 
NT(236,76),9 

4120 PSET(140,110),4:DRAHB» 
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4130 PAINT(126,142),10:PAINT(115,132),10 
:PAINT(150,114),10 

4140 PSET(100,170),1:COLOR15:PRINTI1,'LO 
SIENTO" 

4150 PSET (35, 180) , 1 : COLORIS: PRINTI1 , 'SE 
TERMINARON LAS VIDAS' 
4160 P=USR3(0) 

4170 BEEP: PL AY ' V 1 4T 1 40LBO4CL 1 6FFFGL4FRB 
L8CL 16FFFGL4FV 1 3R8LBFL 1 6FBABL405CR8V 1 2L8 
CL1604BBB05CL904AAGL8ABL96GFLB6AFFDDL4CR 
BV11L8CL16FFFGL4ARBL8BL16G66AL4FRBLBCL16 
FFF6L4FR8V10L8C" 

4180 PLAY"L16FFF6L4FR8L8FL16F6ABL405CR8V 
9L8DL1604BBB05CL904AAGL8ABL96GFL8GAFFDDL 
4CR8V8L8CL16FFFGL4AR8V7L8BL16FFF6L2FL8FR 
8R4" 

4190 T=256:F0RR=lT0126STEP6:T=T-6 

4200 LINE(R,0)-(RH,194),1,BF:LINE(T,0)- 

(T+6,194),1,BF 

4210 NEXTR 

4220 RETURN 

4230 ' ■■■■■■■ 
4240 ' | INSTRUCCIONES I 
4250 ' ■■■■■■■ 

4260 SCPEEN1:C0L0R15,1,1:CLS 
4270 PRINTTAB(4) ; " • ■ • INSTRUCCIONES •••' 
4280 PRINT' SIPPER es un juego de habi- 
lidad y reflejos.' 

4290 PRINT' Tu eisión es conducir tu 
lancha eotora atraves de pe- ligrosos ri 
seos que eiergen de las aguas. 1 
4300 PRINT" Y en un segundo recorrido 
(nocturno) tendrás que tener cuidado con 

los turistas que surcan las aguas con s 
us lan-chas entre afrodisiacas islas con 

pal aeras.' 

4310 PRINT* Los recorridos tienen una 
distancia determinada según el nivel es 
cogido y han de ser realizados antes d 
e que se agote tu tieipo." 
4320 PRINT' Puedes esquivar los peligros 
citados .acelerar y frenar con las tec 
lai de cursor o joystick." 







4330 T=0: IFC=0THENLOCATE8, 22 : PR I NT " PULSA 
ESPACI0'ELSEL0CATE6,22:PRINT'PULSA DISP 
ARADOR' ' 
4340 MH 

4350 PUTSPRITE23, (T, 176) ,7, 1:PUTSPRITE24 

,(T+16,176),7,2 

4360 IFSTRIG(C):-1THEN4370ELSE4340 

4370 L0CATE6,22:PRINT" 
■ 

4380 F0RR=1T06 

4390 PUTSPRITE13, (T+24, 175), 11, 13 

4400 FORP=1TO250:NEXTP 

4410 PUTSPRITE13, (T+24, 178) , 11, 14 

4420 FORP=1TO250:NEXTP 

4430 NEXTR 

4440 GOTO2810 

4450 ' mmmmmmtmm 

4460 ' | DATOS DE C.H. I 

4470 ' mmmmmmmm 

4480 DATA33, 0, 24, 205, 139, 234, 33, 96, 231 , 2 
21,33,96,231,6,24,197,6,31,126,245,35,12 
6,221,119,0,221,35,16,247,241,221,119,0, 
35 

4490 DATA221, 35, 193, 16, 232, 205, 152, 234, 2 
01,1,0,3,33,0,24,17,96,231,205,89,0,201, 
1,0,3,17,0,24,33,96,231,205,92,0,201 

4500 ' mmmmmmmmmm 

4510 » | DATOS DE SPRITES I 

4520 ' mmmmmmmmmm 

4530 DATA0,0,0,0,0,0, 128,3, 163, 19,67, 168 
,64,148,2,0,0,0,0,0,0,0,0,128,128,128,25 
5,255,255,127,127,0 

4540 DATA0,0,0,0,0,0,0,252,130,129,255,2 
55,255,255,254,0,0,0,0,0,0,0,0,0,0,0,252 
248 224 128 0 f 

4550* DATAIS, 49^ 255, 128, 0, 249, 33, 37, 165, 1 
65, 165, 165, 128,255,49, 15,240, 140,255, 1,0 
,23,180,84,86,20,20,23,0,255,140,240 
4560 DATA0,0,0,0,2,2,15,9,30,54,31,31,9, 
14, 1,1,0, 14,50,255,235, 173, 158,250, 190, i 
88,254,74,118,204,240,112 . 
4570 DATA0,0,0,0,0,2,7,47,222,239,212,12 
7,118,29,30,0,0,0,0,0,0,0,96,208,253,165 



,254,244,220,240,0,0 

4580 DATA81, 3,23,64,0, 16, 16, 128, 16,0, 16, 

153, 128, 2, 8, 128, 1, 100, 168,44, 4,1,4, 4, 0, 1 

,8,130,144,52,128,17 

4590 DATA2, 0,0, 68, 0,8, 1,0, 0,34, 0,0, 0,8, 6 
4,0,0,2,0,32,2,0,0,8,0,64,0,10,0,128,20, 
0 

4600 DATA0, 0,0, 0,0, 0,0, 0,0, 3, 4, 8, 255, 127 
,63,31,0,0,0,0,0,0,0,0,0,224,35,35,255,2 
54,254,252 

4610 DATA1.3, 15, 14,2,0, 1,14,30,124,112,1 

20,124,62,15,1,240,248,252,220,204,192,1 

92, 248, 222, 207, 199, 199, 206, 30, 248, 216 

4620 DATA42, 156, 55, 158, 108, 181, 94, 165,2, 

32,0,10,0,32,4,0,8,4,2,255,2,4,8,0,25,25 

,2,124,24,24,20,20,24,24,0,126,24,24,20, 

20 

4630 ' mmmmmtmmum 

4640 ' | DATAS DE LETRAS I 

4650 » mmmmmmmmwm 

4660 DATA24, 126, 126, 255,255, 126, 126,24 
4670 DATA60, 124, 96, 120, 60, 12, 124, 120, 24, 
24,0,24,24,24,24,24,120,124,108,124,120, 
96,96,96,62,62,48,60,60,48,62,62,62,63,5 
1,63,62,62,55,51 

46?i ■ ríT"! 

4700 » tan 

4710 POKEItHFCAB,0:SCREEN0:COLOR15,4,4:CL 
S 

4720 PRINTTAB (9) ; " ■■■■■■ ' 

4730 PRINTTAB (9) ; " I | ■ 

4740 PRINTTAB (9) ;'■ SIPPER ■' 
4750 PRINTTAB(9);-Hn «' 

4760 PRINTTAB(9);'| by JOSE DELGADO |" 
4770 PRINTTAB (9) ; 

4780 PR I NTTAB ( 9 ) ; " | HADE IN ALCOY I 1 
4790 PR I NTT AB ( 9 ) ; " ■■■■■■■I a 

4800 PRINT: PRINTsPRINTFRE (0) ; ' bytes li 
bres' 



4810 BEEP: END 




t. 


- 58 


70 


- 58 


180 


-194 


290 -206 


400 


- 58 


510 


- 58 


620 


- 1 


730 


-196 


840 


- 89 


950 - 27 


1060 


- 79 


2 


- 58 


80 


- 50 


190 


- 31 


300 -226 


410 


- 66 


520 


- 58 


630 


-249 


740 


- 58 


850 


-212 


960 - 87 


1070 


-186 


3 


- 58 


90 


- 15 


200 


-239 


310 - 97 


420 


-199 


530 


- 58 


640 


- 8 


750 


- 58 


860 


- 30 


970 - 20 


1080 


- 69 


4 


- 58 


100 


-226 


210 


- 98 


320 -121 


430 


- 98 


540 


-128 


650 


-215 


760 


- 58 


870 


-215 


980 -234 


1090 


- 86 


5 


- 58 


110 


-134 


220 


-206 


330 -195 


440 


-186 


550 


-200 


660 


-151 


770 


-158 


880 


- 31 


990 - 20 


1100 


-181 


10 


-146 


120 


- 77 


230 


-231 


340 -206 


450 


-152 


560 


- 98 


670 


-200 


780 


- 82 


890 


- 15 


1000 -190 


1110 


-216 


20 


-151 


130 


- 2 


240 


- 58 


350 - 48 


460 


-110 


570 


-206 


680 


-162 


790 


- 44 


900 


- 85 


1010 - 20 


1120 


-104 


30 


- 59 


140 


-183 


250 


- 58 


360 - 97 


470 


-210 


580 


-173 


690 


-102 


800 


- 58 


910 


- 20 


1020 -228 


1130 


- 82 


40 


-139 


150 


- 21 


260 


- 58 


370 - 83 


480 


-152 


590 


-251 


700 


-163 


810 


- 65 


920 


-128 


1030 - 30 


1140 


- 58 


50 


- 58 


160 


-191 


270 


-194 


380 - 58 


490 


-213 


600 


-216 


710 


-102 


820 


-206 


930 


- 30 


1040 -186 


1150 


- 58 



U7I 


- 69 


1510 


-217 


1850 


- 92 


2190 


- 67 


2530 


-232 


2870 


-107 


3210 


-253 


3550 


- 58 


3890 


- 66 


4230 


- 58 


4570 


-181 


1181 


- 6 


1520 


-253 


1860 


-121 


2200 


- 58 


2540 


-204 


2880 


-234 


3220 


-253 


3560 


-210 


3900 


-226 


4240 


- 58 


4580 


-217 


1191 


-227 


1530 


-206 


1B70 


-138 


2210 


- 58 


2550 


-190 


2890 


-243 


3230 


-253 


3570 


- 88 


3910 


-213 


4250 


- 58 


4590 


-227 


1211 


- 97 


1540 


-180 


1880 


-134 


2220 


- 58 


2560 


-243 


2900 


-167 


3240 


-253 


3580 


-114 


3920 


- 53 


4260 


- 65 


4600 


-173 


1211 


-227 


1550 


-191 


1890 


-138 


2230 


- 50 


2570 


-197 


2910 


-213 


3250 


- 85 


3590 


-168 


3930 


-255 


4270 


-232 


4610 


- 42 


1221 


-224 


1560 


- 58 


1900 


- 93 


2240 


- 4 


2580 


-255 


2920 


- 49 


3260 


-206 


3600 


-150 


3940 


-120 


4280 


- 6 


4620 


-243 


1231 


- 39 


1570 


- 58 


1910 


- 31 


2250 


-170 


2590 


-107 


2930 


-137 


3270 


- 58 


3610 


- 97 


3950 


- 22 


4290 


-173 


4630 


- 58 


1241 


-203 


1580 


- 58 


1920 


-225 


2260 


- 80 


2600 


-229 


2940 


- 50 


3280 


-163 


3620 


- 45 


3960 


-150 


4300 


-154 


4640 


- 58 


1251 


-145 


1590 


-145 


1930 


- 58 


2270 


- 85 


2610 


-198 


2950 


- 16 


3290 


-179 


3630 


- 94 


3970 


- 66 


4310 


- 63 


4650 


- 58 


1261 


-209 


1600 


-155 


1940 


- 58 


2280 


- 63 


2620 


- 25 


2960 


- 50 


3300 


-112 


3640 


-140 


3980 


-150 


4320 


- 23 


4660 


- 32 


127§ 


-145 


1610 


-220 


1950 


- 58 


2290 


-200 


2630 


-198 


2970 


-158 


3310 


-140 


3650 


-204 


3990 


- 66 


4330 


-168 


4670 


-226 


1281 


- 86 


1620 


-227 


1960 


- 49 


2300 


- 57 


2640 


- 3 


2980 


- 50 


3320 


-209 


3660 


-106 


4000 


-150 


4340 


-154 


4680 


- 58 


1291 


-145 


1630 


- 68 


1970 


-143 


2310 


-228 


2650 


-131 


2990 


-251 


3330 


-207 


3670 


-149 


4010 


- 66 


4350 


- 8 


4690 


- 58 


1311 


- 86 


1640 


-125 


1980 


- 58 


2320 


-213 


2660 


- 18 


3000 


- 50 


3340 


-150 


3680 


-125 


4020 


- 35 


4360 


-172 


4700 


- 58 


1311 


-145 


1650 


-122 


1990 


- 58 


2330 


-210 


2670 


- 64 


3010 


-120 


3350 


-222 


3690 


-144 


4030 


- 58 


4370 


- 79 


4710 


- 8 


1320 


-228 


1660 


-132 


2000 


- 58 


2340 


- 67 


2680 


-147 


3020 


- 50 


3360 


-150 


3700 


-117 


4040 


- 58 


4380 


-197 


4720 


- 3 


1331 


-145 


1670 


-140 


2010 


- 65 


2350 


-228 


2690 


-172 


3030 


-253 


3370 


-222 


3710 


- 59 


4050 


- 5B 


4390 


-247 


4730 


-228 


1341 


-209 


1680 


-150 


2020 


- 7 


2360 


-213 


2700 


- 52 


3040 


-253 


3380 


-150 


3720 


- 57 


4060 


- 66 


4400 


-194 


4740 


-109 


1351 


- 39 


1690 


- 47 


2030 


-118 


2370 


- 58 


2710 


-186 


3050 


-215 


3390 


-222 


3730 


-213 


4070 


-145 


4410 


-251 


4750 


-188 


1361 


- 27 


1700 


- 56 


2040 


-140 


2380 


- 58 


2720 


-146 


3060 


- 50 


3400 


-125 


3740 


-206 


4080 


-198 


4420 


-194 


4760 


-224 


1371 


- 69 


1710 


-146 


2050 


-102 


2390 


- 58 


2730 


-204 


3070 


-239 


3410 


-178 


3750 


- 22 


4090 


-199 


4430 


-213 


4770 


-222 


1381 


-106 


1720 


-142 


2060 


-153 


2400 


- 13 


2740 


- 86 


3080 


- 50 


3420 


-223 


3760 


-191 


4100 


-131 


4440 


-155 


4780 


- 10 


1391 


-131 


1730 


- 58 


2070 


-246 


2410 


-133 


2750 


- 43 


3090 


-219 


3430 


- 14 


3770 


-100 


4110 


-239 


4450 


- 58 


4790 


- 3 


1411 


-141 


1740 


- 58 


2080 


-141 


2420 


-132 


2760 


-231 


3100 


- 50 


3440 


- 58 


3780 


- 58 


4120 


-246 


4460 


- 58 


4800 


- 38 


1411 


- 58 


1750 


- 58 


2090 


-239 


2430 


- 55 


2770 


-149 


3110 


-253 


3450 


- 58 


3790 


- 58 


4130 


- 92 


4470 


- 58 


4810 


-123 


1421 


- 58 


1760 


-178 


2100 


-162 


2440 


- 58 


2780 


- 62 


3120 


- 22 


3460 


- 58 


3800 


- 58 


4140 


-155 


4480 


- 48 






1430 


- 58 


1770 


- 87 


2110 


-109 


2450 


- 58 


2790 


-197 


3130 


- 50 


3470 


- 58 


3810 


- 65 


4150 


-229 


4490 


-217 






1440 


- 8 


1780 


-117 


2120 


-122 


2460 


- 58 


2800 


- 58 


3140 


-249 


3480 


- 58 


3820 


- 27 


4160 


-146 


4500 


- 58 






1450 


-216 


1790 


-127 


2130 


- 78 


2470 


- 59 


2810 


- 58 


3150 


- 56 


3490 


- 58 


3830 


-187 


4170 


-187 


4510 


- 58 






1460 


- 55 


1800 


-159 


2140 


-206 


2480 


-224 


2820 


- 58 


3160 


- 50 


3500 


-104 


3840 


-107 


4180 


- 96 


4520 


- 58 






1470 


-136 


1810 


-205 


2150 


- Bl 


2490 


- 57 


2830 


-192 


3170 


-253 


3510 


- 9 


3850 


- 7 


4190 


- 95 


4530 


-152 






1480 


- 76 


1820 


-162 


2160 


-189 


2500 


- 74 


2840 


-195 


3180 


- 48 


3520 


-243 


3860 


- 23 


4200 


-116 


4540 


-214 






1490 


-194 


1830 


-169 


2170 


-206 


2510 


-145 


2850 


- 27 


3190 


- 50 


3530 


- 58 


3870 


-131 


4210 


-213 


4550 


- 27 


TOTAL: 








7 
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Programa 

e 



— 



or 









RELIEVE EN 
TRES DIMENSIONES 



Pocas veces habíamos podido ver 
gráficas tridimensionales sobre los 
MSX. Este programa destaca toda 
la potencia gráfica de los ordena- 
dores del estándar. 



tt RELIEVE EN TRES DIMENSIONES M 



11 
20 1 
31 ' 

4f 'POR M DE LA OSA PARA HSX CLUB 
SI ' 
61 ' 
7§ ' 

80 OPEN'GRP:" AS II 
90 I=.78539:F=3.92699 
100 SCREEN 2 
110 ' 

120 'Itt PERSPECTIVA DEL RELIEVE MI 
130 ' 

140 COLOR 15,4,4 
150 FOR Y«60 TO 84 STEP 2 
160 CIRCLE(125,Y),Y,15 
170 NEXT Y 

180 CIRCLE(125,60),50,15 
190.CIRCLE(125,62), 40,15 
200 CIRCLE(125,64),35,15 
210 CIRCLEI125,66>, 30,15 
220 ' 
230 ' 

240 CIRCLE(125,62),25,15 
250 CIRCLE(125,60), 20,15 
260 CIRCLE(125,5B),15,15 
270 CIRCLE(125,56), 10,15 
280 CIRCLE(125,54),6,15 
290 CIRCLE(125,52),4,15 
300 CIRCLE(125,50),2,15 
310 LINE(30,1B0)-(230,195),15,B 
320 PRESET(40,182)¡PRINTil, "perspectiva 
dil relieve" 
330 60SUB 1050 

340 LINE(30,180)-(230,195),4,BF 
350 ' 

360 'ttttft CORTE TRANSVERSAL tUítí 
370 ' 

380 FOR Y*60 TO 84 STEP 2 
390 CIRCLE(125,Y),Y,4,F,I 
400 NEXT Y 

410 CIRCLE(12S,60),50,4,F,I 
420 CIRCLE(125,62),40,4,F,I 
430 CIRCLE(125,64),35,4,F,I 
440 CIRCLE(125,66),30,4,F,I 
450 ' 

460 CIRCLE(125,62),25,4,F,I 




470 CIRCLE(125,60),20,4,F,I 
480 CIRCLE(125,58),15,4,F,I 
490 CIRCLE(125,56),10,4,F,I 
500 CIRCLE(125,54),6,4,F,I 
510 CIRCLE(125,52),4,4,F,I 
520 CIRCLE(125,50),2,4,F,I 
530 PSET(120,120) 

540 DRAN'C15E20F15E12F12E15F20L94" 
550 LINE(30 I 1B0)-(230,195),15,B 
560 PRESETI60, 182) :PRINTI1, "corte trar 
fruí" 

570 60SUB 1050 
580 ' 

590 'ititttttt VISTA AEREA IMIItltlI 
600 ' 
610 CLS 

620 FOR Y*60 TO 84 STEP 2 
630 CIRCLE(125,90 ),Y,15 
640 NEXT Y 

650 CIRCLE(125,90), 50,15 
660 CIRCLEÜ25.90), 40,15 
670 CIRCLE(125,90), 35,15 
680 CIRCLE(125,90), 30,15 
690 ' 
700 ' 

710 CIRCLE(125,90),25,15 
720 CIRCLE(125,90), 20,15 
730 CIRCLE(125,90),15,15 
740 CIRCLE(125,90), 10,15 
750 CIRCLE(125,90),6,15 
760 CIRCLE(125,90),4,15 
770 CIRCLE(125,90),2,15 



780 LINE(30,180)-(230,195),15,B 
790 PRESET(70, 182) jPRlNTtl, 'vista di paj 
aro" 

800 GOSUB 1050 

810 LINE(30,180)-(230,195),4,BF 
820 ' 

830 'MttmtM! 
840 ' 

850 SCREEN 2 

B60 FOR Y=60 TO 84 STEP 2 
870 CIRCLE(125,Y),Y,15,,,.l 
880 NEXT Y 

890 CIRCLE(125,60), 50,15,, ,.1 
900 CIRCLE(125,62),40,15,,,.l 
910 CIRCLE(125,64), 35,15,,, .1 
920 CIRCLE(125,66),30,15,,,.l 
930 ' 

940 CIRCLE(125,62), 25,15,,, .1 
950 CIRCLE(125,60), 20,15,,,. 1 
960 CIRCLE(125,S8),15,15,,,.l 
970 CIRCLE(125,56), 10,15,,,. 1 
980 CIRCLE(125,54),6,15,,,.l 
990 CIRCLE(125,52),4,15,,,.l 
1000 CIRCLE(125,S0),2,15,,,.l 
1010 LINE(30,180)-(230,195),15,B 
1020 PRESET(60, 182) :PRINTI1, 'frente del 
rilitvi' 
1030 GOSUB 1050 
1040 60T0 1040 

1050 FOR X»0 TO 4000jNEXTsRETURN 
1060 END 



44 




t de listados 




i Relieve en tres dimensi 



m 


-216 


190 


-191 


280 


-151 


370 


- 58 


460 


-142 


550 


- 10 


110 


- 58 


200 


-188 


290 


-147 


380 


- 64 


470 


-135 


560 


-146 


120 


- 58 


210 


-185 


300 


-143 


390 


-20! 


480 


-128 


570 


-185 


130 


- 5B 


220 


- 58 


310 


- 10 


400 


-220 


490 


-121 


580 


- 58 


140 


- 93 


230 


- 58 


320 


-115 


410 


-165 


500 


-117 


590 


- 58 


150 


- 64 


240 


-176 


330 


-185 


420 


-157 


510 


-113 


600 


- 58 


160 


-237 


250 


-!¿9 


340 


- 71 


430 


-154 


520 


-109 


610 


-159 


170 


-220 


260 


-162 


350 


- 5B 


440 


-151 


530 


- 77 


620 


- 64 


180 


-1«>9 


270 


-155 


360 


- 58 


450 


- 58 


5*0 


- 91 


630 


-253 



640 -220 
650 -229 
660 -219 
670 -214 
680 -209 
690 - 58 
700 - 58 
710 -204 



730 -194 
740 -189 
750 -187 
760 -1B5 
770 -183 
780 - 10 



800 



* Jd 

■185 



820 - 58 
830 - 58 
840 - 58 
850 -216 
860 - 64 
870 -222 
880 -220 
890 -184 
176 



910 


-173 


1000 -128 


920 


-170 


1010 - 10 


910 

7 JV 


- ea 

JO 


1fl9A -1111 


940 


-161 


1030 -185 


950 


-154 


1040 -171 


960 


-147 


1051 - 3 


970 


-140 


1060 -129 


980 


-136 


TOTAL: 


990 


-132 


13671 





fació* papa Norvcs usu 





N?» 1 a 4 - 475 PTAS. N? 5 a 8 - 475 PTAS. Nf 9 y 10 - 300 PTAS. N? 11 - 175 PTAS 

isa 



N? 12-175 PTAS. 




N? 13 - 175 PTAS. 




N? 14 




■175 PTAS. N? 15 - 175 PTAS. N? 16 y 17 - 350 PTAS. N? 18 - 175 PTAS. N? 19 - 175 PTAS. E. SOFTWARE - 275 PTAS. 



msxclublmHxciub 






N° 20 - 175 PTAS. N? 21 - 

¡SI TE HACE FALTA ALGUN NUMERO DE 




PIDELO HOY MISMO! 



Para contar con la más completa colección de programas de MSX sólo tienes que recortar o fotocopiar el cu- 
pon y dirigirlo a Dpto. Suscripciones MSX CLUB DE PROGRAMAS. Roca i Batlle, 10-12. 08023 Barcelona. 

BOLETIN DE PEDIDO , 

Sí, deseo recibir hoy mismo los números de MSX CLUB DE PROGRAMAS, libre de 

gastos de envío, por lo que adjunto talón n.° del Banco/Caja 

^ómMx^üm^ ptas - a nombre de manha ™ ™ R :s; 
calle n7::™^ 

DP PROVINCIA TEL 
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Programa 



DATOS DE 

ELEMENTOS QUIMICOS 



Por Luis Pardillo 



Este interesante programa edu- 
cativo, especialmente adaptado a 
los niveles de BUP y COU os pue- 
de ahorrar fácilmente muchas ho- 
ras sobre los libros. 



10 nummmmmmmm 
21 't DATOS ELEMENTOS QUIMICOS t 
31 'I por i 

40 't LUIS PARDILLO VELA t 
50 't -TENERIFE 1-9-1986- t 
60 »l PARA HSX-CLUB $ 

70 immtmmmtmtmm 

80 KEY OFF 
90 CLS 

100 SCREEN 0 
110 COLOR 15,0,0 

120 PRINT " DATOS DE LOS ELEMENTOS QUIH 
ICOS" 

130 PRINT 1 



140 LOCATE0,5 

150 PRINT 'SI CONOCES EL NOMBRE DEL ELEH 
ENTO ES-CRIBELO Y LUEGO PULSA <RETURN>." 
: PRINT"" 

160 PRINT 'SI SOLO SABES EL NUMERO ATOHI 
CO PUL- SA LA LETRA <n> Y LUEGO <RETURN> 
. ■ : PRINT" " 

170 PRINT 'SI SOLO SABES EL SIMBOLO PULS 

A LA LE-TRA <s> Y LUEGO < RETURN > 

180 LOCATE f 9 15:PRINT- — Usa letras un 

usculas excepto en la priiera letr 

a del silbólo —": PRINT" ": PRINT" " 
190 ' 

200 ' reconociiiento del eleiento 

210 ' 

220 PRINT "-Noibre del eleiento"; 

230 Z*0 
240 INPUT NI 

250 1F N$="yodo" THEN NI='iodo" 

260 IF N»=V THEN GOSUB 2590:6OTO 350 

270 IF N$="s" THEN GOSUB 2650:GOTO 450 

280 CLS 

290 RESTORE 

300 2=2*1 

310 IF 2M04 THEN PRINT "LO SIENTO NO C 
0N02C0 ESE ";N$:PRINT "SI QUIERES CONSUL 
TAR OTRO PULSA <F5>.":60T0 2750 
320 READ NOMI 

330 IF N0Hf=N$ THEN GOTO 350 

340 GOTO 300 

350 RESTORE 420 

360 FOR 1=1 TO Z : READ S$ 

370 NEXT I 



i 1f > c ¿> 



380 DATA hidrogeno, helio, litio, berilio, b 
oro, carbono, nitrógeno, oxigeno, flúor, neón 
,sodio,iagnesio,alunnio,silicio,fosforo 
, azufre, el oro, argón, potasio, calcio, escan 
dio,titanio,vanadio,croio,ianganeso,hier 
ro, cobalto, niquel 

390 DATA cobre, cinc, galio, gerianio,arsen 

ico,selenio,broio,cripton,rubidio,estron 

ció, itrio, circonio, ni obio,iolibdeno,tecn 

ecio,rutenio,rodio,paladio,plata,cadiio, 

indio, estaño, antiionio, teluro 

400 DATA iodo, xenón, cesio, bario, lantano, 

cerio,praseodiiio,neodiiio,proietio,saia 

rio,europio,gadolinio,terbio,disprosio,h 

oliio,erbio,tulio,itirbio,lutecio,hafnio 

,tantalo,«olf rano, remo, osuo, indi o,pl 

atino, oro, lercurio, tal i o 

410 DATA ploio,bisiuto,polonio,astato,ra 

don, f rancio, radio, actinio, torio, protoact 

inio, uranio, neptunio, plutonio, aier icio, c 

uno, birkelio, californio, einstenio, fem 

o, lendel evi o, nobel i o, 1 aurenci o, kur tschat 

mío 

420 DATA H,He,Li,Be,B,C,N,0,F,Ne,Na,Mg,A 

l,Si,P,S,Cl,Ar,K,Ca,Sc,Ti ,V,Cr,Hn,Fe,Co, 

Ni,Cu,2n,6a,6e,As,Se,8r,Kr,Rb,Sr,Y,2r,Nb 

,No,Tc,Ru,Rh,Pd,Ag,Cd, In,Sn,Sb,Te, I,Xe,C 

5,Ba,La,Ce,Pr,Nd,Pi,Si 

430 DATA Eu,Gd,Tb,Dy,Ho,Er,Ti, Yb,Lu,Hf ,T 

a,N,Re,Os,Ir,Pt,Au,Hg,Tl,Pb,Bi,Po,At,Rn, 

Fr,Ra,Ac,Th,Pa,U,Np,Pu,Ai,Ci,Bk,Cf,Es,Fi 

,Hd,No,Lr,Ku 

440 CLS sBEEP 

450 PRINT "-Noibre del eleiento: ";NOH< 



460 PRINT":PRINT '-Silbólo: 'j3l 
470 PRINT":PRINT '-Su nuiero atoiico es 
el';Z 
480 ' 

490 ' valencias 
500 ' 

510 PRINT "sPRINT'-Valencials)*'; 
520 IF 2=1 OR 2*3 OR 2=11 OR 2=19 OR 2=3 
7 OR 2=55 OR 2=87 OR 2=47 THEN PRINT'l' 
530 IF 2=4 OR 2*12 OR Z«20 OR 2=38 OR Z» 
56 OR 2=88 OR 2=30 OR 2=48 THEN PRINT'2' 
540 IF 2=21 OR 2=39 OR 2=71 OR 2=103 OR 
2=13 OR 2=31 OR 2-49 OR 2=60 OR 2=61 OR 
2=64 OR 2=66 OR 2=67 OR 2=68 OR 2=89 OR 
Z-96 OR 2=98 OR 2=5 OR 2«57 THEN PRINT'3 

550 IF 2=40 OR 2=72 OR 2=90 OR 2=14 OR 2 

«32 THEN PRINT'4 B 

560 IF 2=73 THEN PRINT'5" 

570 IF 2=2 OR 2=10 OR 2=18 OR 2=36 OR 2= 

54 OR 2=86 THEN PRINT"*" 

580 IF 2=50 OR 2=82 OR 2=84 OR 2=78 OR 2 

=46 THEN PRINT"2,4" 

590 IF 2=26 OR 2=27 OR 2=28 OR 2=63 OR 2 

«62 OR 2«70 OR Z«69 THEN PRINT'2,3' 

600 IF 2=44 OR 2=76 THEN PRINT'2,3,4,6,8 
■ 

610 IF 2«15 OR 2=33 OR 2=51 THEN PRINT'- 
3,3,5' 

620 IF 2=41 OR 2=83 THEN PRINT'3, 5" 

630 IF 2=29 OR Z«80 THEN PRINT'1,2' 

640 IF Z=79 OR Z=81 THEN PRINT'1,3' 

650 IF Z=22 OR 2=65 OR 2=58 OR 2=59 OR Z 

=97 THEN PRINT'3,4' 

660 IF Z»92 OR Z«93 OR Z«94 OR Z«95 THEN 
PRINT'3,4,5,6' 

670 IF Z=91 THEN PRINT'4,5' 

680 IF Z«42 OR Z«74 THEN PRINT'2,3,4,5,6 

690 IF Z=23 THEN PRINT'2,3, 4,5' 

700 IF Z=24 THEN PRINT'2,3,6' 

710 IF Z=25 THEN PRINT'2,3,4,6,7' 

720 IF ZM3 THEN PRINT'7" 

730 IF Z=6 THEN PRINT'-4,4,2' 

740 IF Z=7 THEN PRINT'-3,3,2,4,5' 

750 IF Z=16 OR 2=34 OR 2=52 THEN PRINT'- 

2 2 4 6' 

U9 IF 2=17 OR 2=85 THEN PRINT'-l, 1,3,5, 
7' 
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770 IF 2=35 THEN PRINT'-1,1,5" 
780 IF 2=53 THEN PRINT'-l, 1,5,7' 
790 IF 2=8 THEN PRINT"-2' 
810 IF 2=9 THEN PRINT'-l' 
810 IF ZM5 THEN PRINT'2,3,4' 
820 IF 2=77 THEN PRINT'2,3,4,6' 
830 IF 2*75 THEN PRINT'2,4,6,7' 
840 PR1NT »■ 
850 ' 

860 ' configuración electrónica 
870 ' 

880 PRINT '-Su configuración electrónica 
es;':PRINT":BEEP 

890 RESTORE 990:B=0:R=0 
¡ 900 READ Cf 

910 Vf*HID$(CI,2,l) 

920 IF Vl='s' THEN B=B*2:A=2 
j 930 IF Vi='p' THEN B=B*6:A=6 

940 IF V$='d' THEN B=B*10:A=10 

950 IF VM-f THEN B=B*14:A=14 

960 IF B<Z THEN PRINT C$;:PRINT' ';:60T0 
900 

970 IF B>Z THEN 1000 
980 IF B=Z THEN PRINT C$:60T0 1060 
990 DATA Is2,2s2,2p6,3s2,3p6,4s2,3dl0,4p 
, » 6,5s2,4dl0,5p6,6s2,4f 14,5dl0,6p6,7s2,5f 1 
4,6dl0 
1000 B=B-A 

1010 R=R*1:B=B*1:R$=HID$(C$,1,2) 

1020 IF B=2 THEN PRINT R$;R ELSE 60T0 10 

I 10 

1030 ' 

1040 ' periodo, grupo y carácter 
1050 ' 

1060 PRINT ":PRINT"-Pertenece al:Period 

1070 IF Z<3 THEN PRINT' i" 
1080 IF Z<11 AND Z>2 THEN PRINT'2' 
1090 IF Z<19 AND Z>10 THEN PRINT'3' 
1100 IF Z<37 AND Z>18 THEN PRINT'4' 
1110 IF Z<55 AND Z>36 THEN PRINT'5' 
1120 IF Z<87 AND Z>54 THEN PRINT'6' 
1130 IF Z<112 AND Z>86 THEN PRINT'7' 
1140 IF 2-1 OR 2=3 OR 2=11 OR 2-19 OR 2= 
37^0R 2=55 OR 2=87 THEN GOSUB 2760: PRINT 

1150 IF 2=4 OR 2*12 OR 2=20 OR 2=38 OR Z 

=56 OR 2=88 THEN GOSUB 2760: PRINT' II' 

1160 IF Z<31 AND Z>20 THEN GOSUB 2760$PR 

INT Z-20;'de transición' 

1170 IF Z>38 AND Z<49 THEN GOSUB 2760:PR 

INT Z-38;'de transición' 

1180 IF Z>70 AND 2<S1 THEN GOSUB 2760:PR 

INT Z-70;'de transición' 

1190 IF Z>56 AND Z<71 THEN GOSUB 2760:PR 

INT' de lantanidos' 

1200 IF Z>88 AND Z<103 THEN GOSUB 2760iP 
RINT 1 de actinidos" 

1210 IF Z«5 OR Z-13 OR Z-31 OR Z=49 OR Z 
=81 THEN GOSUB 2760:PRINT ' III' 



1220 IF Z=6 OR Z=14 OR Z=32 OR Z=50 OR Z 

=82 THEN GOSUB 2760:PRINT' IV 

1230 IF Z=7 OR 2=15 OR Z=33 OR 2*51 OR Z 

=83 THEN GOSUB 2760:PRINT ' V 

1240 IF Z=8 OR 2-16 OR Z=34 OR Z=52 OR Z 

=84 THEN GOSUB 2760:PRINT ' VI" 

1250 IF Z=9 OR Z-17 OR Z-35 OR Z=53 OR Z 

=85 THEN GOSUB 2760: PRINT' VII' 

1260 IF Z«2 OR 2»il OR Z= 18 OR Z=36 OR Z 

=54 OR Z=86 THEN GOSUB 2760:PRINT' VIII' 

1270 IF ZM02 THEN GOSUB 2760:PRINT Z-10 

2; 'de transición' 

1280 PRINT " 

1290 IF Z=2 OR Z=10 OR 2=18 OR Z=36 OR Z 
=54 OR Z=86 THEN PRINT '-Es un gas noble 
': 60T0 1360 

1300 IF Z-l OR Z>4 AND Z<10 OR Z>13 AND 
2<18 OR 2)32 AND 2<36 OR 2=52 OR 2=53 OR 
2=85 THEN PRINT '-Es un no ietal':60T0 
1360 

1310 PRINT '-Es un letal' 
1320 ■ 

1330 ' electronegatividad 

1340 ' 

1350 BEEP 

1360 RESTORE 1390 

1370 FOR 1=1 TO 2: READ E 

1380 NEXT I 

1390 DATA 2.1,5,1.0,1.5,2,2.5,3,3.5,4,5, 
0.9,1.2,1.5,1.8,2.1,2.5,3,5,0.8,1,1.3,1. 
5,1.6,1.6,1.5,1.8,1.8,1.8,1.9,1.6,1.6,1. 
8,2,2.4,2.8,5,0.8,1,1.3,1.4,1.6,1.8,1.9, 
2.2,2.2,2.2,1.9,1.7,1.7,1.8,1.9,2.1,2.5, 
5,0.7,0.9 

1400 DATA 1.1,1.1,1.1,1.2,6,1.2,6,1.1,1. 

2,6,1.2,1.2,1.2,1.1,1.2,1.3,1.5,1.7,1.9, 

2.2,2.2,2.2,2.4,1.9,1.8,1.8,1.9,2,2.2,5, 

0.7,0.9,1.1,1.3,1.5,1.7,1.3,1.3,1.3,6,6, 

6, 6,6,6, 6, 6, 6 

1410 PRINT " 

1420 IF E=5 THEN PRINT '-Electronegativi 

dad: sin carácter ':60TO 1450 

1430 IF E=6 THEN PRINT '-Electronegativi 

dad: no deteriinada':GOTO 1450 

1440 PRINT '-Electronegatividad (de Paul 

ing):'}:PRINT E :BEEP 

1450 RESTORE 1490 

1460 FOR I»l TO 2: READ NA 

1470 NEXT I: LOCATE 0,20 

1480 PRINT •-Huí atoiica-';NA 

1490 DATA 1.008,4.003,6.941,9.012,10.81, 

12.011,14.007,15.999,18.998,20.179,22.98 

9, 24. 305, 26. 982, 28. 086, 30. 74, 3206, 35. 453 

,39.948,39.098,40.08,44.956,47.90,50.941 

,51.996,54.938,55.847 

1500 DATA 58.933,58.70,63.546,65.38,69.7 

2, 72. 59, 74. 922, 78. 96, 79. 904, 83. 80, 85. 468 

,87.62,88.906,91.22,92.907,95.94,97,101. 

07,102.91,106.4,107.87,112.40,114.82,118 

.69,121.75,127.60,126.90 



1510 DATA 131.3,132.91,137.34,138.1,140. 

12,140.91,144.24,145,150.4,151.96,157.25 

, 158.93, 162.50, 164.93, 167.26, 168.93, 173. 

04,174.97,178.49,180.95,183.85,186.21,19 

0., 192.22,195.09,196.97 

1520 DATA 200.59,204.37,207.2,208.98,209 

, 210, 222, 223, 226, 227, 232. 04, 231 , 238. 03, 2 

37, 244, 243, 247, 247, 251 , 254, 257, 258, 255, 2 

60,260 

1530 BEEP 

1540 LOCATE 0,22: PRINT'HAS INFORMACION 

PULSANDO <RETURN>" 

1550 T$=INKEY$: IF T$=" 60T0 1550 

1560 OPEN 'grp:' FOR OUTPUT ASI1 

1570 SCREEN 2 

1580 DRAH'bi8,0" 

1590 IF 2=1 OR 2=7 OR 2=8 OR 2=9 OR 2=10 
OR 2=2 OR 2=17 OR 2=18 OR 2=36 OR 2=54 
OR 2=86 THEN PRINTI1,'-A temperatura aib 
imte ei un gat a :60TO 1620 
1600 IF 2=35 OR 2=80 OR 2-31 OR 2=55 OR 
2-87 THEN PRINTI1,'-A teiperatura aibien 
te es un liquido':60T0 1620 
1610 PRINTI1,'-A teiperatura sabiente es 




1620 BEEP 
1630 PRINTI1," 

1640 IF 2=43 OR 2=61 OR 2>92 THEN PRINTI 

1," -Es un eleiento artificial" 

1650 IF 2<93 AND 2<>43 AND 2<>61 THEN PR 

INTI1,' -Es un eleiento natural» 

1660 PRINTil," 

1670 RESTORE 1690 

1680 FOR 1=1 TO 2 : READ D : NEXT I 

1690 DATA 0.00009,0.000179,0.53,1.85,2.3 

4,2.26,0.00125,0.00143,0.0017,0.0009,0.9 

7,1.74,2.7,2.33,1.82,2.07,0.00317,0.0017 

8,0.86,1.55,3.0,4.51,6.1,7.19,7.43,7.86, 

8.9,8.9,8.96,7.14,5.91,5.32,5.72,4.79,3. 

12,0.0037,1.53,2.6,4.47 

1700 DATA 6.49,8.4,10.2,11.5,12.2,12.4,1 

2,10.5,8.65,7.31,7.3,6.62,6.24,4.94,0.00 

585,1.9,3.5,6.17,6.67,6.77,7,0,7.54,5.26 

,7.89,8.27,8.54,8.8,9.05,9.33,6.98,9.84, 

13.1,16.6,19.3,21,22.6,22.5,21.4,19.3 
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Programa 




"V n||i» 1,1) 








1711 DATA 13.6,11.85,11.4,9.8,9.2,0,0.00 
973,0,5,1,11.7,15.4,19.07,19.5,19,11.7,7 
,0,0,0,0,0,0,0,0 
1720 BEEP 

1730 IF D*0 THEH PRINTtl,' -Densidad no 
deteriinada a :60T0 1750 
1740 PRNTH,' -Densidad (gr/il):";D 
1751 PRINTI1,' ■:PRINTI1,' -Situación en 
la tabla periodi- ca del";" ';N0H$ 
1760 ' 

1770 ' esqueea de la tabla periódica 
1780 ' 

1790 LINE(64,77)-(64,126) 
1800 LINE(71,77)-(71,126) 
1810 LINE (78,84) - (78, 126) 
1820 LINE (85, 99) - (85, 126) 
1830 LINE(92,99)-(92,126) 
1840 LINE(99,99>-(99,126) 
1850 LINE (106, 99) -(106, 126) 
1860 LINE(113,99)-(113,119) 
1870 LINE(120,99)-(120,U9) 
1880 LINET127,99)-(127,119) 
1890 LINE(134,99)-(134,119) 
1900 LINE(141,99)-(141,119) 
1910 LINE(148,85)-(148,U9) 
1920 LINE(155,85)-(155,119) 
1930 LINE(162,B5)-(162,119) 
1940 LINE(169,85)-(169,119) 
1950 LINE(176,85)-(176,119) 
1960 LINE(183,77)-<183,119) 
1970 LINE(190,77)-(190,119) 
1980 LINE(64,77)-(71,77) 
1990 LINE(183,77)-(190,77) 
2000 LINE(64,84)-(78,84). 



2010 LINE ( 149,84) -(190, 84) 
2020 LINE(64,91)-(78,91) 
2030 LINE(14B,91)-(190,91) 
2040 LINE(64,98)-(190,98) 
2050 LINE (64, 105) -(190, 105) 
2060 LINE(64,112)-(190,112) 
2070 LINE(64,119)-(190,119) 
2080 LINE(64,126)-(106,126) 
2090 LINE(78,130)-(176,130) 
2100 LINE(78,137)-(176,137) 
2110 LINE(78,144)-(176,144) 
2120 LINE(78,130)-(78,144> 
2130 LINE (85, 130) - (85, 144) 
2140 LINE(92,130)-(92,144) 
2150 LINE(99,130)-(99,144) 
2160 LINE(106,130)-(106,144Í 
2170 LINE(U3,130)-(113,144) 
2180 LINE(120,130)-(120,144) 
2190 LINE(127,130)-(127,144) 
2200 LINE(134,130)-(134,144) 
2210 LINE(141,130)-(141,144) 
2220 LINE ( 148, 130) -( 148, 144) 
2230 LINE(155,130)-(155,144) 
2240 LINE ( 162, 130) -( 162, 144) 
2250 LINE(169, 130) -( 169, 144) 
2260 LINE(176,130)-(176,144) 
2270 BEEP 
2280 ' 

2290 ' localiza en tabla periódica 
2300 ' 

2310 IFZ=1 THEN DRAH'bi66,75':60T0 2470 
2320 IFZ=2 THEN DRAWbal 85, 75" : GOTO 2470 
2330 IF Z=3THENDRAWb«66, 82" : 6OTO2470 
2340 IF Z=4THENDRAW"b«73,82":GOTO2470 







2350 IF Z< 11 THEN A=143+(Z-4)l7:DRAITbi=a 
;,82':6OTO2470 

2360 IF Z=l 1 THENDRAWbi66,B9':6OTO2470 
2370 IF Z=12 THEN0RAW"b«73, 89" : 6OTO2470 
2380 IF ZU9THEN A=l43+(Z-12)t7:DRAWbi= 
a;,89':60T0 2470 

2390 IF Z<37THEN A=(Z-19) $7+66:DRAH'be=a 
;,96':60T0 2470 

2400 IF Z<55THEN A=(Z-37)t7+66:DRAM'bi=a 
;,103':6OTO 2470 

2410 IF Z<57THEN A=(Z-55)t7*66:DRAITbi=a 
; , 110":6OTO2470 

2420 IF Z<71THEN A=(Z-57) $7+80:DRAITbi=a 
;,128':60T0 2470 

2430 IF Z<87THEN A= (Z-71) 17+80: DRAK'bi=a 
;,110":GOTO2470 

2440 IF Z<89THEN A=(Z-87) $7+66:DRAM'bi=a 

117":G0T0 2470 
2450 IF ZÜ03THEN A= (Z-89) 17+80: DRAW"b«= 
a; , 135' ¡SOTO 2470 

2460 IF Z<107THEN AMZ-103) $7+80: DRAWb» 

s *;,H7' 

2470 PRINTtl , " . " 
2480 COLOR 6,0,0 
2490 DRAH 'be8,165' 

2500 PRINTtl, 'DESEA CONSULTAR OTRO ELEHE 
NTO? PULSAR <s> o <n>' 
2510 CL0SEI1 

2520 R$=INKEY$:IF R$=" THEN 2520 ELSE 5 
OTO 2530 

2530 IF RMV THEN 80 

2540 IF Rt s V THEN COLOR 15,4,4:END 

2550 BOTO 2520 

2560 ' 

2570 ' subrutinas 
2580 ' 

2590 RESTORE 380 

2600 PRINT '-Nuiero atoiico'; : INPUT Z 
2610 IF ZM04 OR Z<1 THEN N$="ELEMENTO" : 
60T0 280 

2620 FOR 1*1 TO Z jREAÜ N0H$ 
2630 NEXT I 
2640 RETURN 
2650 RESTORE 420 ■ 

2660 PRINT '-Silbólo del eleiento";: INPU 
T SIM 
2670 Z=Z+1 

2680 IF ZM04 THEN N$=SIH$:60T0 280 
2690 READ Si :IF St*SIH$ THEN 2710 
2700 GOTO 2670 
2710 RESTORE 380 
2720 FOR 1*1 TO Z: READ N0H$ 
2730 NEXT I-.CLS 
2740 RETURN 
2750 END 

2760 PRINT ' 6r upo';: RETURN 
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listados 



Datos de elementos químicos 



271 - 16 
281 -159 
290 «14# 
3ff -166 
310 -177 
321 -149 
331 -212 
341 -196 
331 - 63 
361 - 55 
370 -214 
381 - 21 
391 - 37 
400 - 22 
411 - 71 
421 -251 
431 -218 
441 -153 
450 -118 
461 -211 
471 -153 
481 - 58 
491 - 58 
Slf - 58 
510 -112 
52# -244 



531 - 23 
541 - 41 

550 -218 
560 - 16 
570 - 29 
580 -180 
590 - 86 
600 - 16 
610 -179 
620 -241 
630 -221 
640 - 17 
650 -142 
660 - 75 
670 -130 
680 - 9 
690 -251 
700 -157 
710 - 97 
720 -244 
730 -185 
740 -121 
750 - 21 
760 - 37 
770 -209 
780 - 70 



790 -251 

800 -251 

810 -176 

820 - 50 

830 - 52 

840 -213 

850 - 58 

860 - 58 

870 - 58 

860 -213 

890 -131 

900 -238 

910 - 32 
920 -121 
930 -126 
940 -UB 

950 -128 

960 -19B 

970 -232 

980 -225 

990 -134 

1000 -166 

1010 -156 

1020 -235 

1030 - 58 

1040 - 58 



1050 - 58 
1060 -192 
1070 -201 
1080 - 33 
1090 - 48 
1100 - 75 
1110 -112 
1120 -163 
1130 -221 
1140 - 53 
1150 - 50 
1160 -103 
1170 -157 
1180 -253 
1190 -252 
1200 -205 
1210 - 5 
1220 -174 
1230 -138 
1240 -216 
1250 - 38 
1260 -197 
1270 -157 
1280 -213 
1290 - 38 
1300 - 72 



1310 -176 
1320 - 58 
1330 - 58 
1340 - 58 
1350 -192 
1360 - 13 
1370 - 5 
1380 -204 
1390 -247 
1400 - 10 
1410 -213 
1420 - 72 
1430 - 21 
1440 -185 
1430 -113 
1460 - 78 
1470 - 62 
1480 -104 
1490 - 17 
1500 -191 
1510 - 69 
1520 -244 
1530 -192 
1540 - 31 
1550 -110 
1560 - 17 



1570 -216 
1580 -101 
1590 -137 
1600 -137 
1610 -216 
1620 -192 
1630 - 54 
1640 -141 
1650 - 75 
1660 - 54 
1670 - 58 
1680 - 10 
1690 - 95 
1700 -154 
1710 -206 
1720 -192 
1730 - 48 
1740 -106 
1750 - 0 
1760 - 58 
1770 - 58 
1780 - 58 
1790 - 34 
1800 - 48 
1810 - 69 
1820 - 98 



1830 -112 
1840 -126 
1850 -140 
1860 -147 
1870 -161 
1880 -175 
1890 -189 
1900 -203 
1910 -203 
1920 -217 
1930 -231 
1940 -245 
1950 - 3 
1960 - 9 
1970 - 23 
1980 -248 
1990 -230 
2000 - 13 
2010 -209 
2020 - 27 
2030 -223 
2040 -153 
2050 -167 
2060 -181 
2070 -195 
2080 -125 



2090 -217 
2100 -231 
2110 -245 
2120 -133 
2130 -147 
2140 -161 
2150 -175 
2160 -189 
2170 -203 
2180 -217 
2190 -231 
2200 -245 
2210 - 3 
2220 - 17 
2230 - 31 
2240 - 45 
2250 - 59 
2260 - 73 
2270 -192 
2280 - 58 
2290 - 58 
2300 - 58 
2310 - 21 
2320 - 72 
2330 - 21 
2340 - 20 



2350 - 8 
2360 - 34 
2370 - 33 
2380 - 16 
2390 - 30 
2400 -103 
2410 -121 
2420 -160 
2430 -181 
2440 -192 
2450 -222 
2460 -112 
2470 -100 
2480 - 78 
2490 -209 
2500 - 74 
2510 -233 
2520 -229 
2530 -223 
2340 -148 
2550 -120 
2560 - 58 
2570 - 58 
2580 - 58 
2590 - 23 
2600 -184 



2610 - ?: 
2620 
2630 -1 
2fi40 -142 
2650 - 63 
2660 -108 
2670 -!66 
2680 -124 
2690 -190 
2700 - 15 
2710 - 23 
2720 -206 
2730 -165 
2740 -142 
2750 -129 
2760 -229 




JUEGA COMO UN CAMPEON 

METE EL GOL QUE TE HARA MILLONARIO 

QUINIELAS 

El programa imprescindible para la liga más larga 
de la historia española 

QUINIELAS te ofrece: 

introducir 38 equipos - introducir el partido de la jornada - almacenar los resultados, los goles 
locales y los goles visitantes - estadística gráfica de aciertos - realizar 25 boletos de 8 apuestas 
(200), por reducción o al azar - sacar los boletos por impresora - clasificación detallada - 
estadística gráfica de equipos - estadística gráfica de quinielas - grabación de datos en cinta - 
escrutinio de boletos memorizados - consultas y correcciones - etc., etc. 
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Monitor al día 




SOFTWARE PARA MSX2 

Idealogic lanza la isla del Tesoro 

Iidealogic ha adaptado este clásico de la 
literatura de aventuras para los orde- 
nadores MSX de la segunda generación 



Ahora puedes ser tú mismo el protagonis- 
ta de la aventura, conversando con Long 
John Silver, Billy Bones, etc. La aventura 
se acompaña con casi 100 imágenes y di- 
ferentes temas musicales. 
Una nueva oportunidad, dentro de la co- 
lección TELARIUM de adentrarse en el 
mundo de la aventura por ordenador. 



EXPO HALLEY 86 

E 



n la ciudad de Valladolid tuvo lugar 
la Expo Halley 86 entre los días 5 y 
16 de noviembre. La misma contó 




UNIDADES DE DISCO PHILIPS 

VYOOlOy VY0011 

Ciertos periféricos hacen que los 
MSX dejen de parecer ordenadores 
domésticos y entren en el mercado 
de ordenadores de mayor precio. 
Claro ejemplo de esto son las dos unida- 
des de disco de gran velocidad ofrecidas 
por PHILIPS. Si usted es un usuario de 
MSX puede conectar a su ordenador la 
unidad VY0010, obteniendo de ese modo 
una gran capacidad de memoria de masa. 
Si sus necesidades son mayores, puede co- 
nectar a la primera unidad una segunda 
«on line», que le permitirá doblar la capa- 
cidad del sistema. 

NUEVOS PROGRAMAS PARA 
MSX2 

PHILIPS aumenta su catálogo 
de gestión 

PHSTAT 2 es un paquete in te 8 ra ^ 
de programas que permite hacer del 
ordenador una potentísima herra- 
mienta para el cálculo estadístico. Poten- 
te, pero de fácil manejo, permite, una vez 
entrados los datos desde el editor, expre- 
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sarlos gráficamente, realizar complejos cál- 
culos, etc. 

Pero lo más importante. Todos los datos, 
aparte de poderse volcar en la impresora, 
se pueden tratar con el paquete de mate- 
máticas PHMATH 2. 



con la participación de unos veinte países 
que aportaron las fotografías sobre el Co- 
meta Halley a su paso por la Tierra, tanto 
en 1910 como en 1986. Asimismo Ceres 
Software ofreció una demostración de un 
sistema informático que permite el alma- 
cenamiento de datos en cintas de video y 
que ha sido diseñado con un ordenador 
MSX. La aplicación de este sistema es una 
serie de 13 capítulos de 35 minutos cada 
uno titulada «Universos» en la que se ex- 
pone el macro y el microcosmos, desde su 
nacimiento hasta los últimos datos cono- 
cidos. 



AMSTRAD ENFERMO 

Según informes de la revista francesa 
MICROS MSX, los ordenadores 
CPC de AMSTRAD están bajando 
puntos rápidamente en el mercado de los 
ordenadores domésticos, mientras que los 
MSX de la primera generación ganan pues- 
tos día a día. 

Según MICROS MSX la razón es la rapi- 
dez con la que AMSTRAD cambia de mo- 
delos, dejando a los usuarios con un poco 
serio servicio post-venta. Otra razón im- 
portante para la caída de los CPC es la fa- 
cilidad con que AMSTRAD (en principio 
fabricante de desconocidos equipos de alta 
fidelidad) pasan de un modelo a otro, sin 
mantener ningún tipo de compatibilidad 
entre sus propios productos. Esto, en de- 
finitiva, resulta en perjuicio de los usua- 
rios. Veamos que ocurrirá con la entrada 
en escena del AMSTRAD PC. Según la re- 
vista francesa, más usuarios gritándoles a 
sus máquinas que se resisten a funcionar 
correctamente. 



AMSTRAD Y THOMSON: 
MSX ABORTADOS 

Las compañías THOMSON Y AMS- 
TRAD firmaron por la norma MSX 
en 1984, guardaron los contratos en 
el fondo de una caja fuerte y se olvidaron 
del asunto momentáneamente. 
¿Por qué? Hace dos años el MSX ya pro- 
metía convertirse pronto en un standard 
indiscutible, como el de las cintas de audio. 
Tanto AMSTRAD como THOMSON se 
adhirieron a la norma para cubrirse las es- 
paldas. 

El motivo de no llevar a la práctica el 
AMSTRAD MSX es claro. La competen- 
cia entre las diferentes marcas del MSX es 
muy fuerte, imponiéndose el precio, la ca- 
lidad y la marca. ¿Podía AMSTRAD ha- 
ber ofrecido esos tres puntos? 



CATALOGO DE SOFTWARE 
SONY 

En una cuidada edición 

Sony España, S.A. es una de las com- 
pañías que más cuidan a los usuarios 
de MSX. Ahora acaba de lanzar un ex- 
celente catálogo de software que no sólo 
incluye todas las cintas, cartuchos, tarje- 
tas y discos existentes hasta hoy en el mer- 
cado español, sino también los periféricos, 
libros y revistas que tratan el sistema 
MSX. 

El catálogo incluye una somera intro- 
ducción informática y de las principales 
ventajas que implica el uso del estándar 
MSX. Asimismo todo el software es pre- 
sentado cuidadosamente clasificado según 
su género, de modo que encontramos lo 
que hay de educativo, aplicación, juegos, 
etc., con sus correspondientes precios y fo- 
tografías de pantallas. 

Para obtener este magnífico catálogo 
sólo basta solicitarlo a Sony España, S.A. 
escribiéndole a Sabino de Arana, 42-44, 
Barcelona 08028. 




PRN-M09 

Nueva impresora matricial 
para los MSX 



SONY ESPAÑA, S.A. lanza al mer- 
cado una nueva impresora matricial 
compatible con el estándar. Las prin- 
cipales características de esta impresora 
son: cabezal de impresión de nueve agu- 
jas, impresión bidireccional a una veloci- 
dad de 75 c.p.s. en letra normal y 18 c.p.s. 
en letra de alta calidad. 
Acepta todos los caracteres de los MSX y 
los imprime en diferentes formatos: 
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dose expandir todos esos tipos. 
Puede funcionar con papel continuo (trac- 
ción) y hoja a hoja (fricción) llegando a 1 36 
caracteres por línea en modo comprimi- 
do y 80 en modo normal. 
Su atractivo diseño y sus prestaciones no 
están en nada mermadas por su precio: 
57.000 Ptas + IVA. 



SONY GALLERY 

Nueva sala de exposición 
permanente 



s 



ONY ESPAÑA, S.A., ya abrió al pú- 
blico su nueva sala de exposición per- 
manente. En esta sala, tanto particu- 



lares como distribuidores tienen un acce- 
so directo a todos los aparatos de la mar- 
ca y pueden efectuar todo tipo de consul- 
tas y pruebas. Cualquier persona puede 
acudir a esta exposición y solucionar to- 
das sus consultas sin ningún compromi- 
so, ya que en el SONY GALLERY no se 
realizan ventas. 

La apertura al público de esta nueva sala 
ha tenido un rotundo éxito entre el pú- 
blico. Con esta nueva sala de exposición 
activa, se intenta ofrecer un mejor servi- 
cio y proporcionar una mayor informa- 
ción al usuario final. 
SONY tendrá abierta la sala hasta finales 
de otoño, momento en que se clausurará 
para prepararla de cara la invierno y fe- 
chas navideñas. 





51 



Monitor al día 



MSX CLUB DE MAILING 

Nuevo Departamento de Manhattan Transfer 



De acuerdo con su política de servi- 
cio al lector, especialmente de 
aquél que habita en poblaciones 
alejadas de los grandes centros comercia- 
les, Manhattan Transfer ha puesto en fun- 
cionamiento un nuevo departamento. Se 
trata de MSX CLUB MAILING a través 
del cual se ofrece una serie de productos 
que los lectores podrán solicitar y obte- 
ner por correo. En una primera etapa se 
ofrece el Tutor Basic, un breviario de los 



principales comandos de Basic MSX, de- 
sarrollado por Idealogic y presentado en 
formato de cartucho, y los cartuchos adap- 
tadores para las tarjetas inteligentes Bee 
Card y SoftCard. Próximamente se incor- 
porarán otros productos, tales como ls tar-: 
jetas de juegos comercializadas por Serma. 
Como siempre, los suscriptores de MSX 
CLUB y MSX EXTRA gozarán de un 
descuento especial en sus compras. 




CASSETTE DR-303 

Grabador/reproductor 
de SANYO 

SANYO lanza al mercado su nueva 
grabadora-reproductora da datos, ade- 
cuados para los ordenadores MSX. 
Este cassette incorpora un sistema de car- 



ga rápida, control automático de tono y 
de volumen. El avance rápido y el rebo- 
binado están libres del control ejercido 
por el ordenador limitándose éste a las 
operaciones de grabación y reproducción. 
Es de destacar su motor de velocidad cons- 
tante, que elimina muchos de los proble- 
mas de un cassette convencional. Su pre- 
cio, 13.000 Ptas. 

MPC-200 

Nuevo aporte de SANYO 
al mercado de los MSX 

Día a día crece el número de orde- 
nadores del standard MSX. SAN- 
YO ofrece una interesante máqui- 
na dentro de la familia de los MSX de pri- 
mera generación. El MPC-200 está dota- 
do de teclado en castellano (con la letra 
ñ), así como con una configuración de 80 
Kb RAM (16 VRAM) y 32 Kb ROM. 
Cuenta también con dos slots para cartu- 
chos y dos conectores para joysticks. 
Un nuevo MSX, a 1 
y por 39.000 Ptas. 



APLICACIONES PARA LA CASA 
Y LOS PEQUEÑOS NEGOCIOS 

Editado por Noray 



aplicaciones para 

la casa y los # 
pequeños negocios 



Eeste nuevo titulo se viene a sumar 
a los que ofrece la Editorial NO- 
RAY sobre el MSX. Introducción 
al MSX y 18 juegos dinámicos para tu 
MSX, etc. 

En este libro, eminentemente práctico, se 
incluyen quince programas de utilidad do- 
méstica, muy acertados para aquellos que 
quieran realizar programas que sirvan para 
algo. Se incluyen programas de ajuste del 
monitor, de agenda telefónica, de repre- 
sentación de gráficos, barras y líneas, de 
lotería primitiva. En fin, una colección de 
programas para que el ordenador sea útil 
en nuestro hogar. 





M.S.X. ly 2 
AMSTRAD 



'TE DESAFIAMOS ' 



VEB ACRUZ 



¡ACEPTA EL RETO! 



WAR CHESS 




DESAFIAMOS TU IMAGINACION, TU LOGICA, TU ESPIRITU DE 
AVENTURA. A TU JOYSTICK. TE DESAFIAMOS A PASARLO 
BIEN ¡A LO GRANDE! ¡A TOPE CON TU ORDENADOR! 
TE PRESENTAMOS LOS MAS ALUCINANTES JUEGOS. 
SUPERPROGRAMAS. SUPER: DESAFIANTES, INTRIGANTES 
LLENOS DE ESTRATEGIA PARA QUE USES A FONDO TU IMAGI- 
NACION Y DEMUESTRES TU HABILIDAD E INTELIGENCIA TE 
PROPONEMOS HORAS DE DIVERSION SEGURA. 
¿HASTA QUE HORA DE LA MADRUGADA RESISTIRAS? 
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————— ¡¡NOVEDAD!!——— 

• • • • • • 

EL CASO VERACRUZ/WAR CHESS /THE MOST AMAZING MEMORY GAME / MANDRAGORA / LAS VEGAS /EL GNOMO FED0R/3D MAGIC PIN BALL/SKATE DRAGON 



* ? 

INFOGRAMES 



Pedidos: Tel. 253 74 00 




Calle Valencia. 8S 08029 BARCELONA lele* 
Teléfonos Ti J 86 93 2S3 89 09 90 



IudicBít 



EL MAS OCUPADO DE LA CASA. 

I U f 




Porque nadie puede resistirse a la tentación del 
MSX de Philips. A sus divertidos juegos de aventuras. 
A sus entretenidos programas educativos. O a los 
de oficina, como el "Home office". Capaz de hacer 
estadísticas, estudio de cuentas, contabilidad, etc. 



Y los programas específicos para hacer más fácil el 
trabajo al ama de casa. O al estudiante. Además, posee 
una amplísima gama de periféricos: impresoras, 
monitores, ratón, etc. Disfrute con el MSX de Philips. 
Siempre que no esté ocupado. 



PHILIPS 



Philips integra su futuro. 



Servicio de información al cliente: tels. (91) 413 21 61 - 413 22 46. 



PHILIPS 




DE MAILING ! 



¡NOS APLICAMOS A SER UTILES! 

A TRAVES DE MSX CLUB DE MAILINC PUEDES ADQUIRIR 
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ADAPTADORES TARJETASl 
INTELIGENTES 
BEE CARD Y SOFTCARD 





Deja el manual de lado, inserta este breviario de 
BASIC en cartucho y olvídate. No ocupa memoria. 
PVP 3.500 pts. 



Note quedes 
al margen 
y disfruta 
de las tarjetas 
inteligentes. 
Lo último 
en soft. 
PVP 2.850 pts. , 
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I Dirección '*s¿£¡it¿ 

I Población 

I □ Tutor Basic Ptas. 3.500- 



I 



CP 



Prov. 



Tel. 



□ Adaptador BeeCard Ras. 2.850- □ Adaptador Softcard Ras. 2.850 - 

□ Backgammon Ptas. 5.200- □ Shark Hunter Ptas. 5.200- 

□ Chock'n Pop Ras. 5.200- □ Le Mans 2 Ptas. 5.200,- 
| Gastos de envío por cada producto 100,- pts. Remito talón bancario de pts. a la orden de Manhattan 

Roca i Batlle 10-12 bajos - 08023 Barcelona. 



i □ Sweet Acorn Ptas. 5.200- 
I □ BarnStormer Ptas. 5.200- 



Transfer, S.A. Enviar a 



INTERFAZ MIDI EMR MIDITRACK 



iFco. Javier Guerreroi 



SONIDO 
PROFESIONAL 
EN TU MSX 



Este cartucho de interfaz 
MIDI permite controlar 
uno o varios instrumen- 
tos musicales equipados 
con el interfaz MIDI. 



La combinación producida por un or- 
denador MSX, el interfaz EMR 
y el programa MIDITRACK PER- 
FORMER, suministrado con el interfaz 
abre un nuevo camino para los amantes 
de la música y los músicos profesionales: 
La utilización de un ordenador domésti- 
co para simular el control de un magne- 
tófono digital de 8 pistas. 

El ordenador crea excitantes posibilida- 
des de control de grabación utilizando en 
combinación con instrumentos equipados 
con MEDI (teclados, guitarras, procesado- 
res de efectos, dispositivos de muestreo, 
cajas de ritmos, etc.). 

Este interfaz musical conecta entre cual- 
quier MSX de 32 o 64 K y los instrumen- 
tos equipados con MIDI pasando la infor- 
mación codificada adelante y atrás, es 
decir, que permite acceder a cualquier par- 
te de la grabación previamente realizada 
y gestionar los datos almacenados en cin- 
ta o diskette. 



HARDWARE NECESARIO 

Los requerimientos mínimos de hard- 
ware para poder operar con el MIDI- 
TRACK son los siguientes: 

— 1 MSX de 32 o 64 K. De todos mo- 
dos, no todos los MSX son compatibles, 
aunque sí la mayoría. En el slot 0, de las 
páginas 2 y 3 son normalmente las bási- 
cas tanto para los equipos de 32 como de 
64 K, teniendo la segunda RAM de 32 K 
colocada en otro slot (normalmente el 2, 
utilizando las páginas 2 y 3). 

— Un grabador/reproductor de cas- 
sette. 

— Puede sustituirse el grabador por una 
unidad de diskette de 3'/2 pulgadas. 

— El interfaz EMR MSX MIDI, prepa- 
rado para su conexión directa a ordena- 
dor MSX en la ranura de cartucho. 

— Cables de conexión DIN de 5 cla- 
vijas. 

La manera más sencilla de utilizar este 
interfaz y el software suministrado con él 
es mediante la conexión de un teclado 
MIDI. Teniendo en cuenta que con esta 



configuración se puede trabajar hasta en 
ocho canales simultáneamente, esto nos va 
a permitir grabar una voz en cada una de 
las pistas, teniendo la posibilidad de escu- 
charlas todas interpretadas simultánea- 
mente. 



De todos modos, las posibilidades no se 
terminan ahí. El EMR dispone de las co- 
nexiones MIDI IN (1) OUT (2) y THRU 
(1), que permiten controlar simultánea- 
mente más de un instrumento, conectan- 
do el instrumento principal en las salidas 
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IN y OUT y el o los secundarios en serie 
utilizando la toma THRU. Pueden llegar 
a conectarse hasta dieciséis instrumentos 
siempre y cuando vayan equipados con la 
conexión THRU, efectuándose la cone- 
xión entre los aparatos a través de esa sa- 
lida. 



MULTIPISTA DOMESTICO 

Tu ordenador MSX puede convertirse 
mediante la instalación de este aparato en 
un centro de control de grabaciones, si- 
mulando un grabador digital multipista, 
además de un reproductor idóneo para la 
interpretación de solos, puesto que éstos 
pueden ser almacenados o recuperados 
desde el cassette o la unidad de disco. Si 
el equipo MSX tiene una RAM de usua- 
rio de 64 K es posible registrar entre 10 
y 20 minutos de música, desde un solo de 
percusión hasta un minué, pasando por la 
simulación de una orquesta completa en 
un teatro de ópera. 

Utilizando la opción exclusiva del pro- 
grama MIDITRACK PERFORMER 
« Arrange» (arreglo), distintas panes de una 
composición pueden ser grabadas y arre- 
gladas hasta en 64 combinaciones distin- 
tas de pistas, lo que puede llegar a conver- 
tirse en una interpretación de más de una 
hora. 

Incluso si se desea efectuar una graba- 
ción profesional, este sistema permite a los 
músicos llegar al estudio con un material 
base de primera calidad o con la pieza pre- 
parada, que posteriormente puede ser edi- 
tada, cortada, ampliada añadiéndole más 
pistas de otros instrumentos y efectuar la 
mezcla final, lo que puede ahorrar consi- 
derables horas de estudios y que, lógica- 



mente, puede abaratar ostensiblemente el 
coste de la grabación. 



MANEJO 

Una vez efectuadas todas las conexiones, 
procede efectuar la carga del programa MI- 
DITRACK PERFORMER. 

El manejo del interfaz con este progra- 
ma resulta extremadamente sencillo, pues- 
to que en pantalla se visualizan todas las 
opciones mediante iconos, pudiéndose ac- 
ceder a la deseada en cada instante senci- 
llamente desplazando la flecha indicado- 
ra del cursor a la opción deseada y 
pulsando la barra de espacio. La sección 
izquierda de la pantalla muestra las espe- 
cificaciones para los canales 1 a 8 durante 
la grabación o reproducción de la música. 

Los iconos, de izquierda a derecha, re- 



presentan las siguientes operaciones: 

PISTA: Consiste en una fila de núme- 
ros del 1 al 8, refiriéndose cada uno de ellos 
a un canal en particular, para la utilización 
del sistema de grabación digital. 

PLAY: Una o más pistas previamente 
grabadas pueden ser reproducidas o des- 
conectadas independientemente durante 
la reproducción simplemente introducien- 
do las letras O (Off) o P (Play). 

CANAL: Situando la flecha en el canal 
deseado, puede ser modificado introdu- 
ciendo un número entre 1 y 16; número 
que representa el canal por el que el ins- 
trumento MIDI recibe la información. 
Habitualmente, el canal por defecto para 
la mayoría de los instrumentos MIDI es 
el 1, pero esto puede variar (como ocurrió 
en esta redacción cuando conectamos el 
equipo de Jorge Serraute, un teclado DX-7 
Yamaha conocido intérprete, arreglista, 




INTERFAZ MIDI EMR MIDITRACK 





profesor de música e investigador de mú- 
sica electrónica, equipo que nos estuvo 
volviendo locos nada más y nada menos 
que porque operaba en el canal 10, y por- 
que con las ganas de oírlo interpretar sus 
composiciones a través de MIDI olvida- 
mos consultar el manual para ver cuál era 
el canal de conexión). 

LOOP: Después de haber grabado una 
pista, no puede efectuar un «LOOP», es 
decir, una repetición predeterminada de 
la melodía grabada. Utilizando esta opción 
junto con «Arrange» (brevemente comen- 
tada anteriormente), pueden producirse 
interesantísimos efectos de repetición va- 
riada que recuerdan las producidas me- 
diante un secuenciador. 

CONTROL: Es un importante coman- 
do para el ahorro de memoria, que per- 
mite regular todos los controles, abando- 
narlos, regular la velocidad y el control de 
pulsación. 

PITCH: Permite la transposición de una 
o varias pistas grabadas (monofónicas o 
polifónicas) semitono a semitono hasta la 
tonalidad deseada. 

MODE: Permite colocar el teclado en 
modo polifónico o monofónico, según se 
desee grabar acompañamiento o solos). 

Existen más iconos con muchas más po- 
sibilidades, pero aquí nos hemos limitado 
a los esenciales. También mediante este có- 
modo sistema de selección podemos ob- 
servar el directorio del disco, seleccionar 
grabación o carga de datos, fijar el com- 
pás, el tempo, acceder a la función de me- 








trónomo, borrar una pista o la totalidad 
de la grabación efectuada, sincronizar el 
sistema MIDI con el reloj interno o con 
un reloj de cualquier aparato conectado, 
obtener información grabada en formato 
de texto para cada pieza almacenada, mez- 
clar pistas, corregir la duración de las 
notas... 



GRABACION Y 
REPRODUCCION 

Para grabar una pista, el procecimiento 
es terriblemente sencillo. Basta con selec- 
cionar una pista. Tras esto, ir a la fila de 
PLAY y conectarla (P) desplazarnos a la 
fila de canal y colocar el adecuado para el 
instrumento con el que vayamos a efec- 
tuar la grabación; y tras todo ello pulsar 
la letra R (RECORD). Una vez efectua- 
do todo este proceso, tan sólo tenemos que 
pulsar la barra de espacio del ordenador 
y comenzar a interpretar el tema que va 
a ir colocado en esa pista. 

Cuando finalicemos, pulsaremos de nue- 
vo la barra de espacio con lo que se dará 
por concluida la grabación. 

Si deseamos añadirle más voces, simple- 
mente debemos situarnos en otra pista y 
repetir el mismo procediminto. Si desea- 
mos oír la pieza pregrabada mientras gra- 
bamos la segunda voz, tan sólo debemos 
mantener una P en el canal correspondien- 
te en la columna PLAY; tecleando una O 
en caso contrario. 

La reproducción consiste prácticamen- 
te en el mismo proceso, salvo que en lu- 
gar de escribir una R escribiremos una P 
(Play) para que suene todo aquello que ha- 
yamos grabado, pudiendo modificar tim- 
bres, tempo, arreglos... 

Si la cosa nos ha gustado, tan sólo tene- 
mos que grabarla en cinta o disco con una 
etiqueta y... con la música a otra parte. 



CONCLUSIONES 

Indiscutiblemente, se trata de un peri- 
férico que hará las delicias de todos aque- 
llos usuarios que deseen sacar partido por 
la vía de la música a sus ordenadores. 

El manejo de interfaz y del software es 
extremadamente sencillo, y la posibilidad 
de conexión a cualquier instrumento do- 
tado de MIDI abre un abanico de posibi- 
lidades que puede superar fácilmente el 
ámbito domestico para convenirlo en una 
potente herramienta profesional, que tie- 
ne como único límite la imaginación. 

Este interfaz es distribuido por VEN- 
TAMATIC, y su precio de venta al pú- 
blico es de 45.000 pesetas. 
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MSX tabla comparativa i 



msx versus 

AMSTRAD 



Todos conocemos las virtudes del sistema 
MSX, la posibilidad de intercambiar progra- 
mas y ampliaciones con otros ordenadores 
del estándar, aunque sean de diferente mar- 
ca; pero además de ser compatibles, los MSX 
son punteros dentro del mercado de los or- 
denadores domésticos 



Vamos a realizar una comparación 
entre los ordenadores no compati- 
bles más extendidos del mercado es- 
pañol y los MSX. 

Aquellos poseedores de un MSX que 
realizaron un sondeo al mercado de orde- 
nadores antes de adquirir el suyo encon- 
trarán muchos datos familiares; pero los 
indecisos entre un ordenador MSX o uno 
no compatible tendrán una amplia base 
para fundamentar su elección. 



PRINCIPALES VENTAJAS 
DEL MSX 

— En primer lugar, y esta es la razón de 
ser de los MSX, existe una compatibilidad 
total de programas, lenguajes y periféri- 
cos entre los ordenadores de todas las mar- 
cas que componen el estándar. 

— Su potente lenguaje MSX-BASIC, si- 
milar en gran medida al lenguaje BASICA 
o al GW-BASIC de los ordenadores IBM- 
PC y toda la gama de compatibles con sus 
sistemas, le permite realizar de un modo 
simple y rápido (ver las tablas comparati- 
vas de lenguajes) los más complicados pro- 
gramas. Además su gran parecido al BA- 
SICA de EBM (también desarrollado por 
Microsoft como el MSX-BASIC) permi- 
te, sin ningún tipo de preparación previa, 
que un usuario de MSX pueda realizar 
complejos programas con ordenadores de 
gama profesional. 

— Los ordenadores MSX «crecen con el 
usuario». No se quedan obsoletos ya que 
pueden evolucionar con la misma unidad 
central y teclado, y funcionar paralela- 
mente con disco y cassette, por ejemplo, 
permitiendo simultanear programas pro- 
fesionales con juegos de entretenimiento 
o educativos. 

— Grandes posibilidades de ampliación: 
hasta 4 unidades de diskette que propor- 
cionan 4.000 Kb (4 Mb). 

— Soportan programas en cassette, dis- 
kette, tarjeta y en cartuchos. 

— Disponibilidad de programas de todo 
tipo: educativos, aventuras, acción, depor- 
tes, gestión, juegos educativos y de entre- 
tenimiento. 




VENTAJAS DE LOS ORDENADORES MSX 2 SOBRE EL AMSTRAD PCW-8256 




MSX-2 


AMSTRAD 


Memoria 

Unidad de diskette 

Unidades de diskette conectables 
Conexión a cartucho 
Colores 

Planos de sprite 
Sistemas operativos 

Conexión a impresora 
Teclas de función 


384 Kb 

1.000 Kb (720 formateado) 
Formato estándar 
Hasta 8 unidades 
Sí 

fif* una nalpta riji ^19 
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32 

MSX-BASIC, MSX-DOS. Los 

ficheros de datos son compatibles 

con IBM-PC 

MSX o Centronics 

10 funciones definidas y predefinibles 


256 Kb 

175 Kb/cara. No standard 

2 unidades 
No 

Imposible. Sólo fósforo verde 
Imposible 

CP/M; pero incompatible con otros 
formatos 

Unicamente la que lleva 
No definidas 




VENTAJAS DE LOS OR 


DENADORES MSX W SOBRE 


EL SPECTRUM PLUS 2 



— 



MSX 



SPECTRUM 



Lenguaje BASIC 
Texto en pantalla 
Colores 
Planos de sprite 

Posibilidad de almacenar ficheros de 
datos en cassette 
Soporte de programas 

Funciones especiales 

Mandos y joysticks 

Comandos de gráficos directos 

Teclado 

Conexión a impresora 
Orientado a 





160 instrucciones 
40 caráct.x24 líneas 
16 
32 

SI 

Cinta, cartucho, disco, tarjeta 

Cálculos en doble precisión 
Permite interrupciones 
Normales, a distancia por infrarrojos, 
bola gráfica ratón, etc. » 
Elipses, cuadrados, curvas 
>lenguaje de gráficos 
i caracteres castellanos 
Centronics estándar 

Educación, gestión de empresas, 
aventuras, juegos educativos y de 
entretenimiento. 



60 instrucciones 
32 caráct.x24 líneas 
8 
0 



NO 

Cinta, Microdrive (90 Kb de lectura 
secuencial) 



Sólo joystick de Spectrum Plus 2. 

Líneas y círculos 

Sin caracteres castellanos 

No sigue ningún estándar. Especial 

Spectrum Plus 2. 

Sólo juegos 






— Dispone de potentes comandos grá- 
ficos y musicales directos. 

— Gran resolución gráfica: 

•MSX; 256x192 puntos y 16 co- 
lores. 

• MSX-2: 512x212 puntos y 256 co- 
lores. 

— Pueden conectarse a cualquier tipo de 
televisor (B/N o color) y a monitor (co- 
lor, fósforo verde o naranja), de modo que 
puede ser utilizado con cualquier televi- 
sor que haya en casa o bien funcionar con 
monitores de alta calidad. 

— Existen actualmente en España 6 re- 
vistas especializadas sobre el sistema MSX, 
habiendo además una gran bibliografía so- 
bre el sistema MSX (especialmente sobre 
el BASIC MSX). 

— Los ordenadores MSX, entre los mu- 
chos lenguajes a que pueden acceder, dis- 
ponen de la posibilidad de trabajar con el 



MSX tabla comparativa 



lenguaje LOGO MSX (Sony), homologa- 
do por el Proyecto del Ministerio de Edua- 
ción y Ciencia «ATENEA». 

— Los MSX disponen de gran cantidad 
de periféricos: reproductoras/ grabadoras 
de cassette de alta velocidad, unidades de 
diskette de hasta 1 .000 Kb de capacidad en 
los dos sistemas de disco ampliamente nor- 
malizados en el mercdo: 5 X A pulgadas, 
compatible con los discos de los IBM-PC 
(y compatibles), y los 3 V2 pulgadas, for- 
mato al que se están pasando las más im- 
portantes marcas líderes en informática. 
(Se espera a corto plazo una versión de 
IBM con estos diskettes, ya utilizados por 
algunos de los ordenadores compatibles a 
su sistema). 

— Gran cantidad de programas, y no 
sólo juegos como en otros ordenadores, 
sino utilidades, educativos, de gestión, de 
aventuras, etc. 



CONCLUSIONES 

Los ordenadores MSX están más orien- 
tados a la familia para la utilización de la 
informática como ayuda a la educación. 

Se puede ir ampliando a medida que el 
usuario desee, adaptándose a sus necesida- 
des futuras. 

El hecho de que el MSX tenga un len- 
guaje de programación tan potente facili- 
ta y simplifica la programación, reducien- 
do considerablemente la longitud del 
programa y dejando más espacio libre para 
el usuario. 

EJEMPLO: EJECUCION 
DE LA ESCALA MUSICAL: 
DO-RE-MI-FA-SOL-LA-SI 
(octava 4) 

/. MSX: 

10 PLAY «CDEFGAB» 
o bien: 
10 PLAY 

«N36N38N40N41N43N45N47» 

2. ZXSPECTRUM: 

10 BEEP 1,0: BEEP 1,2 
20 BEEP 1,4: BEEP 1,5 
30 BEEP 1,7: BEEP 1,9 
40 BEEP 1,11 
o bien: 

10 FOR 1=1 TO 7 
20 READ A 
30 BEEP 1, A 
40 NEXT I 

50 DATA 0,2,4,5,D7,9,11 

3. ORICATMOS: 

10 MUSIC 1,4,1,10: WAIT 25 



20 MUSIC 1,4,3,10: WAIT 25 
30 MUSIC 1,4,5,10: WAIT 25 
40 MUSIC 1,4,6,10: WAIT 25 
50 MUSIC 1,4,8,10: WAIT 25 
60 MUSIC 1,4,10,10: WAIT 25 
70 MUSIC 1,4,12,10: WAIT 25 
o bien: 

10 FOR 1=1 TO 7 
20 READ A 
30 MUSIC 1,4,A,10 
40 WAIT 25 
50 NEXT I 

60 DATA 1,3,5,6,8,10,12 

4. COMMODORE 64: 
10 FOR L = 54262 TO 54206: 

POKEL, O: NEXT 
20 POKE 54296,15 
30 POKE 54277,7 : 
40 POKE 54276,17 
50 FOR T = 1 TO 300 : NEXT 
60 READ A: READ B 

70 IF B 1 THEN END 

80 POKE 54273,A : POKE 54272,B 
90 FORT -1 TO 250 : NEXT 

100 GOTO 30 

110 DATA 17, 37, 19, 63, 21, 154, 22, 
227 

120 DATA 25, 177, 28, 214, 32, 94, - 
1,-1 

GRAFICOS 

1. Dibujo de un cuadrado (longitud 
lado = 50): 

(50, 50) 



(100, 100) 



MSX: 

10 SCREEN 2 

20 LINE (50, 50) - (100, 100), 1, B 
30 GOTO 30 

ZXSPECTRUM: 
10 PLOT 50, 50 
20 DRAW 50, 0 
30 DRAW 0, -50 
40 DRAW -50, 0 
50 DRAW 0, 50 

2. Dibujo de un triángulo 




MSX: 
10 



20 DRAW «BM100, 100 ESO F50L100» 
30 GOTO 30 

ZXSPECTRUM: 
10 PLOT 0,0 
20 DRAW 50, 50 
30 DRAW 50, -50 
40 DRAW -100, 0 

3. Dibujo de la silueta de una montaña: 




MSX: 

10 SCREEN 2 

20 DRAW «BM50, 

100R10E20F5R10E10F5E10R5E5F 

10R5F10F10» 
30 GOTO 30 

ZXSPECTRUM: 

10 PLOT 0,0 

20 DRA W 10,0 

30 DRAW 20,20 

40 DRA W 5,-5 

50 DRAW 10,0 

60 DRAW 10,10 

70 DRAW 5-5 

80 DRAW 10,10 

90 DRA W 5,0 
100 DRA W 5,5 
110 DRAW 10,-10 
120 DRAW 5,0 
130 DRAW 10,-10 

4. Dibujar un cuadrado y pintarlo de 
color (p.e. rojo) 

MSX: 

10 SCREEN 2 

20 LINE (50,50) - (100,100), 9, BF 
30 GOTO 30 

ZX SPECTRUM: No puede hacerlo en 
BASIC. 

5. Dibujar una elipse y pintarla de 
color (p.e. blanco) 

MSX: 

10 SCREEN 2 

20 CIRCLE (100,100), 50, 15„,.5 
30 PAINT (100,100), 15 
40 GOTO 40 

ZX SPECTRUM: No puede hacerlo en 
BASIC 
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Especial para nuevos 
usuarios. 

Para que ningún lector 
quede al margen te propo- 
nemos una nueva sección/ 
concurso. 

¡Participa con tu pe- 
queño programa de gráfi- 
cos, sonido, juego o truco! 



BASES 

1. " Podrán participar to- 

dos nuestros lectores, 
cualquiera que sea su 
edad. 

2. ° Los programas se re- 

mitirán grabados en 
cassettes debidamente 
protegidas dentro de 
su estuche plástico. 

3. ° No se admitirán aque- 

llos programas plagia- 
dos o editados por 
otras publicaciones. 

4. ° Las mejoras a los pro- 

gramas se considerarán 
una aportación al mis- 
mo y se publicarán en la 
sección Línea Directa. 



PREMIOS 

5. ° MSX CLUB premiará 

aquellos programas 
publicados con 2.000 
pts. 

6. ° MSX CLUB se reserva 

el derecho de abonar 
los premios en metáli- 
co o su equivalente en 
software, haciéndolos 
efectivos a los 15 días 
de publicados. 



FALLO Y 
JURADO 

7. ° El Departamento de 

Programación actuará 
como jurado y su fallo 
será inapelable. 

8. ° Los programas remi- 

tidos no se devolve- 
rán, siendo destruidos 
aquellos que no sean 
seleccionados. 
10.° El plazo finalizará el 
30 de junio de 1987. 
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UN LIBRO 
PENSADO PARA 
TODOS LOS 
QUE QUIEREN 
INICIARSE DE 
VERDAD 
EN LA 

PROGRAMA- 
CION BASIC 

Construcción de 
programas. El potente 
editor todo pantalla. 
Constantes numéricas. 
Series, tablas y 
cadenas. Grabación de 
programas. Gestión de 
archivo y grabación 
de datos. Tratamiento 
de errores. Los 
gráficos del MSX. 
Los sonidos del MSX. 
Las interrupciones. 
Introducción al 
lenguaje máquina. 



Y ADEMAS PROGRAMAS DE EJEMPLO 

Alfabético. Canon a tres voces. Moon Germs. Bossa Nova. Blue 
Bossa. La Séptima de Beethoven. La Flauta Mágica de Mozart. 
Scrapple from the apple & Donna Lee. The entretainer. Teclee un 
número. Calendario perpetuo. Modificación Tabla de colores 
SCREEN 1. Rectángulos en 3-D. Juego de caracteres alfabéticos en 
todos los modos. Juego Matemático. Más grande más pequeño. 
Poker. Breackout. Apocalypse Now. El robot saltarín. El archivo 
en casa. 




r ■ 



Deseo me envíen el libro de los secretos del MSX, para lo 
cual adjunto talón de 1.500 ptas. a la orden de MAN- 
HATTAN TRANSFER, S.A. 

Nombre y apellidos 

Calle n> <» 

Ciudad CP 

Este boletín me da derecho a recibir los secretos MSX en 
mi domicilio libre de gastos de envío o cualquier otro 
cargo. No se admite contrareembolso. 

Importante: Indicar en el sobre MANHATTAN 
TRANSFER, S.A. 

«LOS SECRETOS DEL MSX* 

Roca i Batlle, 10-12 Bajos - 08023 BARCELONA 
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MSX por dentro 



Por Willy Miragall 



SECUENCIAS 
DE ESCAPE 



No son demasiados los que, po- 
seyendo un ordenador MSX, co- 
nocen las grandes posibilidades 
que ofrecen las instrucciones co- 
dificadas que emulan un terminal 



Las secuencias de escape son unas ins- 
trucciones codificadas (no incluidas 
en la mayoría de los manuales), que 
os permitirán realizar operaciones especia- 
les en la pantalla. 

Para que os hagáis a la idea, he aquí un 
pequeño ejemplo: 
10 FORY=0to 40 
20 PRINT "MSX Club de Programas"; 
30 NEXT Y 
40 LOCATE 0,3 
50 A$ = INPUT$(1) 
60 IF A$ = "0" THEN PRINT 
CHR$(27) "L"; 

70 IF A$ = "l" THEN PRINT 
CHR$(27) "M"; 
80 GOTO 50 

!No¡, no basta con mirarlo. ¡Hay que te- 
clearlo! Con un listado así puede pasar 
cualquier cosa.. 

Haz RUN y fíjate en la pantalla... llena 
del dichoso mensaje...; pero..., pulsa el i... 
otra vez, ¿y el 0? y ¿cómo se nace eso?... 
Ya lo ves, con una secuencia de códigos; 
pero no desesperes, todo quedará claro. 

Busca ahora un asiento cómodo y el am- 
biente... «ideal» ¿Ya?, pues sumérjete en 
la lectura y disfruta con las secuencias: 

Hace no muchos años, los ordenadores 
no funcionaban como los que hoy cono- 
cemos. Tener un ordenador en casa era 
algo impensable incluso para la mayoría 
de empresas. Disponer de un ordenador 
representaba un gasto fuera de su alcan- 
ce. Los ordenadores eran aparatos gran- 
des y con precios astronómicos que sólo 
grandes empresas y centros de cálculo po- 
dían permitirse. 

Particulares y pequeñas empresas po- 
dían conectarse al ordenador por medio 
de terminales, que consistían en un tecla- 
do y una impresora. 

La comunicación hombre-ordenador 
tiene lugar casi exclusivamente en forma 
de caracteres, mientras que la comunica- 
ción entre ordenadores es siempre numé- 
rica. Se necesita, por tanto, una relación 
entre caracteres y números. A cada carác- 
ter debe corresponderle un número y vi- 
ceversa; pero además se precisa que todos 
los ordenadores usen el mismo tipo de có- 
digos, para que los ordenadores sean ca- 
paces de entenderse entre sí. Esto último 
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no es así; existe una gran diversidad entre 
los diferentes ordenadores, siendo dos los 
conjuntos de caracteres más usados: 

— el ASCII (o ISO) de American Stan- 
dard Code for Information Interchange 
(Código Standard Americano para el In- 
tercambio de Información), que consta de 
128 caracteres. 

— y el EBCDIC con 256 caracteres. 

Los ordenadores MSX, como la mayo- 
ría de ordenadores personales y domésti- 
co, utiliza el código ASCII o bien el ASCII 
extendido, que consta de 256 caracteres en 
lugar de 128, siendo éste el caso del MSX. 

Cabe remarcar que estos códigos son in- 
dependientes del BASIC, así como de cual- 
quier otro lenguaje, y pertenecen a la 



BIOS del ordenador (Basic Imput Output 
System) encargada de la comunicación en- 
tre el ordenador y los diferentes periféri- 
cos, como son la pantalla, el teclaao, la im- 
presora, etc. Podemos usarlos, por lo 
tanto, en cualquier lenguaje: BASIC, PAS- 
CAL, FORTRAN, C, o ENSAMBLA- 
DOR (siempre que utilicemos las rutinas 
de la BIOS en este último caso). 

Pero la comunicación ordenador-termi- 
nales precisa de unos códigos adicionales: 
retorno de carro, salto de línea, salto de 
página, tabuladores,... 

Por esta razón existen dentro del códi- 
go ASCII unos códigos que no represen- 
tan caracteres, sino operaciones. Estos son 
los códigos 0 al 31. 
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Si a un terminal primitivo le añadimos 
una pantalla, la cosa se complica, ya que 
la pantalla precisa de operaciones adicio- 
nales, como son el borrado de la pantalla, 
el desplazamiento del cursor, etc. 

Así, con el paso del tiempo y las inno- 
vaciones tecnológicas, estos códigos del 0 
al 31 han variado su función, e incluso han 
sido insuficientes para el creciente conjun- 
to de operaciones a realizar con los peri- 
féricos. Por esta razón se crearon secuen- 
cias de códigos que permiten aún más 
operaciones. Para iniciar una de estas se- 
cuencias de códigos se utiliza el código 27 
(ESCAPE), por lo que a estas secuencias 
se les denomina secuencias de escape. 

El nombre de ESCAPE proviene de la 
función primitiva de este código (aún con- 
servada en algunos programas profesiona- 
les), que permitía salir del programa, es de- 
cir, finalizar el trabajo con ese programa. 

Veamos a continuación como han que- 
dado distribuidos los 32 primeros códigos 
del MSX, para pasar, a continuación a tra- 
tar en detalle cada una de las secuencias 
de escape en el standard. 

Código 0: (Nuil) — Este código indica 
nada, y no hay que confundirlo con el es- 
pacio, que es eso, un espacio. Este códi- 
go, poco utilizado, es útil, por ejemplo, 
cuando tenemos que utilizar un cieno nú- 
mero de caracteres y hemos de rellenar 
con «nada». 

Código 1: -»Este código indica el paso 
a caracteres alternativos, es decir, a un cier- 
to número de caracteres que normalmen- 
te no aparecerían en la pantalla. Por 
ejemplo, para obtener todo el set de ca- 
racteres normal haremos: 
10 FOR X=l to 255 
20 PRINT CHR$(X); 
30 NEXT X 

pero si cambiamos la línea 20 y le indica- 
mos que nos imprima los caracteres alter- 
nativos... 

20 PRINT CHR$(1) CHR$ (X); 

¡ Pasa a caracteres alternativos. 

¿Que no veis la diferencia? ¿Dónde es- 
tán las letras mayúsculas? ¿Qué hay en su 
lugar? Esos son los caracteres alternativos. 
También podéis conseguir que aparezcan 
los caracteres alternativos pulsando la telca 
CTRL y la tecla A simultáneamente y lue- 
go una letra mayúscula. Cabe decir que to- 
dos estos códigos de operación ASCII (del 
0 al 31) pueden ser sustituidos por una 
combinación CTRL + letra (ver tabla 1). 

Código 2: Este código mueve el cursor 
al inicio de la palabra precedente, consi- 
derando como palabra todo conjunto de 
caracteres que comience con una letra o 
dígito (A-Z, a-z, 0-9). 

Existe una limitación en este comando, 
y es que sólo funciona desde el teclado, es 
decir, CTRL + B. Por lo tanto PRINT 

(Sigue en pág. 66) 



SECUENCIAS 
DE CODIGOS 



Los 3 1 códigos utilizados para estas ope- 
raciones resultaban insuficientes, por lo 
que para determinadas operaciones se uti- 
lizan secuencias de códigos, iniciadas con 
el código 27 (escape). 

Vamos a ver esto mucho más claro con 
cada una de las secuencias: 

CURSOR ARRIBA - ESC A 

Esta secuencia de escape mueve el cur- 
sor una línea hacia arriba, sin cambiar de 
columna. Si el cursor alcanza la línea su- 
perior de la pantalla se detendrá. Con es- 
ta secuencia obtenemos el mismo 
resultado que con el código 30; pero con- 
tamos con la ventaja de que ESC A es com- 
patible con la mayoría de los ordenadores, 
mientras que el código 30 es casi esclusi- 
vo de los MSX. 

Para utilizar esta secuencia no tenemos 
más que hacer: 

PRINT CHR$(27); "A"; 

****MUY IMPORTANTE**** 

En las secuencias de escape es muy im- 
portante el carácter que sigue al código 27, 
y no puede ser pasado de mayúsculas a mi- 
núsculas o viceversa. Así pues, no es lo 
mismo ESC A que ESC a. 

CURSOR ABAJO - ESC B 

Esta secuencia mueve el cursor una línea 
hacia abajo, sin cambiar de columna. El 
cursor no sobrepasará la última línea de 
la pantalla, y no se producirá SCROLL 




en ningún caso, (equivalente al código 31). 
Para utilizarla no hay más que nacer: 
PRINT CHR$(27); "B"; 

CURSOR DERECHA - ESC C 

Esta secuencia mueve el cursor un ca- 
rácter hacia la derecha. Si el cursor alcan- 
za el margen derecho de la pantalla se 
detendrá, aspecto que la diferencia del có- 
digo 28, que pasa a la línea siguiente al lle- 
gar al final de la actual. 

Para utilizarla: 

PRINT CHR$(27); "C"; 

CURSOR IZQUIERDA - ESC D 

Mueve el cursor un carácter hacia la iz- 
quierda. Si el cursor alcanza el margen iz- 
quierdo de la pantalla se detendrá. Esta 
característica lo diferencia tanto del códi- 
go 29 como del código 8, que pasan a la 
línea anterior, y sólo se detienen al llegar 
a la esquina superior izquierda de la 
pantalla. 

El modo de utilización es análogo a las 
anteriores. 

BORRA PANTALLA - ESC E 

Borra la pantalla y sitúa el cursor en la 
esquina superior izquierda de la misma. Es 
equivalente al código 12. 

CURSOR A POSICION BASE - ESC 
H 







(Sigue 
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Coloca el cursor en la esquina superior 
CHR$(2); no tendrá ningún efecto. 

Código 3: JBreak) El código BREAK 
era mucho más utilizado en los ordenado- 
res de hace muy pocos años, y permite pa- 
rar la ejecución de un programa. En los 
MSX este código ha sido sustituido por 
CTRL + STOP, aunque la combinación 
de teclas correspondientes a este código 
CTRL + C, permiten detener el comando 
AUTO, o un programa, pero sólo cuan- 



do se esté esperando la respuesta a un 
INPUT. 

Código 4: No utilizado. 

Código 5: Borra toda la línea desde la 
posición del cursor en adelante. Hay que 
hacer notar que se borra la «línea lógica», 
es decir, no una línea de pantalla (40 
caracteres = línea física) sino una línea en 
la memoria del ordenador (por ejemplo, 
una línea de un programa en BASIC pue- 
de ocupar más de una línea en la pantalla). 



Este código sólo funciona desde el tecla- 
do: CTRL + E. 

Código 6: Mueve el cursor al inicio de 
la siguiente palabra. Sólo funciona desde 
el teclado con CTRL + F. 

Código 7: (BELL) Produce un pitido, 
al igual que lo hace el comando BEEP del 
Basic. Este código funciona tanto desde te- 
clado CTRL + G, como por programa 
PRINT CHR$(7); 

Código 8: (BACKSPACE) Hace retro- 



SECUENCIAS DE 

CODIGOS (Viene de la pág. 65) 

izquierda de la pantalla sin borrar el con- 
tenido de ésta. 

BORRA HASTA EL FINAL DE LA 
PAGINA - ESC J 

Borra toda la información existente en 
la pantalla desde la posición del cursor (in- 
clusive) hasta el final de la última línea de 
la pantalla. 



BORRA HASTA EL FINAL DE LA 
LINEA - ESC K 

Borra toda la información existente en la 
pantalla desde la posición del cursor (in- 
clusive) hasta el final de la línea. 

Esta secuencia de escape, aparentemen- 
te equivalente al código 5, no lo es en ab- 
soluto. Dos importantes "diferencias las 
distinguen. En primer lugar esta secuen- 
cia de escape borra hasta el final de la lí- 
nea física (y no de la línea lógica como 
hacia el código 5); pero además puede uti- 





Código 


Nombre 


Teclado 


0 


NULL 




1 

2 




CTRL + A 
CTRL+B 


3 


BREAK 


CTRL+C 


4 




CTRL+D 


5 
6 




CTRL+E 
CTRL+F 


7 


BEEP 


CTRL+G 


8 


BACKSPACE 


CTRL+H 


9 


TAB 


CTRL+I 


10 


LINE FEED 


CTRL+J 


11 


HOME 


CTRL+K 


12 


CLR 


CTRL+L 


13 


CARRIAGE RETURN 


CTRL+M 


14 


■ 


CTRL+N 


15 




CTRL+O 


16 




CTRL+P 


17 




CTRL+Q 


18 


INSERT 


CTRL+R 


19 

20 




CTRL+S 
CTRL+T 


21 




CTRL+U 


22 
23 




CTRL+V 
CTRL+W 


24 




CTRL+X 


25 




CTRL + Y 


26 




CTRL+Z 


27 


ESCAPE 


CTRL+[ 


28 


CURSOR RIGHT 


CTRL+/ 


29 


CURSOR LEFT 


CTRL+] 
CTRL+ A 


30 


CURSOR UP 


31 


CURSOR DOWN 


CTRL+-1 



lizarse por programa y no únicamente des- 
de el teclado. 

INSERTA UNA LINEA - ESC L 

Inserta una nueva línea en blanco. Esta 
secuencia mueve la línea sobre la que está 
el cursor, y todas las que la siguen, una lí- 
nea hacia abajo. La última línea de la pan- 
talla desaparece y el cursor se sitúa al 
principio de la nueva línea en blanco. 



BORRA UNA LINEA - ESC M 

Borra el contenido de la línea sobre la 
que se encuentra el cursor, mueve todas 
las líneas situadas a continuación una lí- 
nea hacia arriba, inserta una línea en blan- 
co en la última posición de la pantalla y 
sitúa el cursor al principio de la línea que 
ocupaba. 

Estas dos secuencias (ESC L y ESC M) 
son las que permitieron realizar el progra- 
ma con el que abrimos la primera parte 
de este artículo. 

DIRECCIONAMIENTO DIRECTO 
DEL CURSOR - ESC Y (línea) 
(columna) 

Esta secuencia mueve el cursor al pun- 
to de la pantalla especificado por (línea) 
y (columna). Tanto línea como columna 
deben especificarse en formato binario, es 
decir, en la forma CHR$ (línea) CHR$ 
(columna), y se les debe añadir 32 (código 
del primer carácter que no es un código 
de control). 

Vamos a suponer que queremos situar 
el cursor en la cuarta fila de la quinta co- 
lumna. Para ello deberíamos hacer: 
PRINT CHR$(27); "Y"; CHR$(36); 
CHR$(37); 

Los valores de las líneas van desde 0 en 
la línea superior de la pantalla, hasta 22 
o 23 en la inferior, dependiendo de que 
aparezcan o no en la pantalla las teclas de 
función programables. Si se utiliza un nú- 
mero de línea inferior a 0 se entenderá la 
línea cero, y si se utiliza mayor a 22 o 23 
se entenderá, asimismo, la última línea de 
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ceder un cuadro el cursor y todos los ca- 
racteres situados a su derecha. 

Si lo indicamos por teclado CTRL + H 
o bien la tecla BS <- es destructivo, es de- 
cir, borra todos los caracteres sobre los que 
pase; pero si lo hacemos con un PRINT 
CHR$ (8); no borrará los caracteres so- 
bre los que pase. 

Código 9: (TAB) Desplaza el cursor a 
la siguiente posición del tabulador. Estas 
posiciones están colocadas en las colum- 
nas 0,8,16,24 y 32, es decir, cada 8 co- 
lumnas. 

Podemos utilizarlo con PRINT 
CHR$(9); con CTRL + I, y utilizando la 



tecla TAB -►, 

Código 10: (LINE FEED). El cursor 
desciende una línea. El efecto aparente es 
el mismo que al pulsar la tecla de cursor 
hacia abajo (código 31). Existen dos dife- 
rencias fundamentales entre estos dos có- 
digos. La primera es que el código 10 
realiza un SCROLL de la pantalla ( movi- 
miento vertical de la misma) si llega a la 
última línea mientras el 31 no lo hace. 
Además, el código 10 es compatible con 
todos los ordenadores e impresoras que 
utilicen el código ASCII, mientras que el 
código 31 sólo tiene esta función en los 
MSX. 



0 a la izquierda de la pantalla hasta el an- 
cho máximo de la pantalla menos uno. Es 
decir, si se ha hecho WIDTH 34, los va- 
lores oscilarán entre 0 y 33, de izquierda 
a derecha. Si el valor de la columna no pue- 
de ser representado en la pantalla (por ex- 
ceso o por defecto) se tomará siempre la 
columna más a la derecha de la pantalla. 

Esta secuencia, aparentemente comple- 
ja de utilizar si la comparamos con el co- 
mando LOCATE del BASIC, puede 
ahorrarnos espacio en los programas si la 
definimos como función del BASIC. Pa- 
ra ello hacemos: 

10 DEF FNC$(X,Y) = CHR$(27) + "Y" 
+ CHR$(32 + Y) + CHR$(32 + X) 
y para utilizarla no tenemos más que 
hacer: 

250 PRINT FNC$(10,10); «UN MENSA- 
JE CUALQUIERA...» 

La ventaja de definir la función nosotros 
mismos, es que podemos variarla sin difi- 
cultad. Si queremos que la esquina supe- 
rior izquierda de la pantalla tenga por 
coordenadas (1,1) en lugar de (0,0), no te- 
mos más que cambiar la función; 
10DEFFNC$(X,Y) = CHR$(27) + "Y" 
+ CHR$(31+Y) + CHR$(31 + X) 

BORRA TODA LA LINEA - ESC 1 

Esta secuencia borra la totalidad de la 



1 . 

v I 
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línea sobre la que se encuentra el cursor. 
(No confundáis la ele con un uno). 

SELECCIONA MODO DE VIDEO 
INVERSO - ESC p 

Esta secuencia no funciona en los MSX; 
pero si lo hace en los ordenadores Spec- 
travideo SV-318 y SV-328, por lo que ahí 
va... 

Esta secuencia hace que todos los carac- 
teres escritos a continuación intercambien 
el color de texto con el de fondo. Es de- 
cir, si estamos escribiendo con caracteres 
blancos sobre fondo azul, los caracteres 
que sigan a la secuencia (sólo esos), serán 
de color azul sobre tondo blanco. 

DESCONECTA MODO DE 
VIDEO INVERSO - ESC q 

Al igual que la secuencia anterior, ésta só- 
lo es operativa en los Spectravideo SV-318 
y SV-328, y desconecta el modo de video 
inverso seleccionado por la secuencia an- 
terior. 

CURSOR BLOQUE - ESC x 4 

Esta secuencia hace que el cursor apa- 
rezca como un bloque cuadrado (como 
normalmente aparece). 

Para utilizarla hacer: 
PRINT CHR$(27); "x4"; 

CURSOR LINEA - ESC y 4 

Esta secuencia hace que el cursor apa- 
rezca como una línea (como ocurre cuan- 
do insertamos). 

Para utilarla hacer: 

PRINT CH$(27); ' 4 y4"; 

DESAPARECE CURSOR - ESCx5 

Esta secuencia hace que el cursor desa- 
parezca de la pantalla. En los ordenado- 
res Spectravideo SV-318 y SV-328, 
funciona en todo momento; pero en los 
MSX funciona en cualquier situación me- 
nos en un INPUT. 

MUESTRA CURSOR - ESC y 5 

Esta secuencia hace que el cursor 
ecer en la pantalla. 




Funciona tanto en modo directo 
(CTRL+J) como por programa (PRINT 
CHR$(10);). 

Código 11: (HOME) El cursor retorna 
a la esquina superior izquierda de la pan- 
talla; pero sin borrar los contenidos de 
ésta. 

Podéis utilizarla de tres formas: con la 
tecla HOME, con CTRL+K o con 
PRINT CHR$(11) ; 

Código 12; (CLR) Este código produ- 
ce el borrado de la pantalla, y sitúa el cur- 
sor en la esquina superior izquierda de la 
pantalla. 

Disponéis de cuatro formas de usarla: 
con la tecla CLS, con CTRL + L, con 
PRINT CHR$(12) o con el comando 
CLS del BASIC. 

Código 13: (Carriage Return) Este có- 
digo tiene varias funciones, dependiendo 
del contexto en el que lo utilicemos. Si lo 
utilizamos en la forma PRINT CHR$(13) 
desplazará el cursor al inicio de la propia 
línea; pero si lo entramos con teclado se 
produce un efecto bien distinto. Este có- 
digo, obtenido al pulsar CTRL+M o bien 
ENTER o RETURN, indica al ordena- 
dor que hemos concluido una línea lógi- 
ca, y comenzará su interpretación. El 
cursor, en este caso, se desplaza al inicio 
de la siguiente línea física. Esto se debe 
a que automáticamente se añade un LINE- 
FEED (código 10) al CR. En la mayoría 
de impresoras, esta opción de LINEFEED 
automático se puede eliminar con el mi- 
croruptor AUTOLINEFEED ON/OFF 
(consultad el manual de cada impresora en 
concreto). 

Código 14: El cursor se sitúa tras el últi- 
mo carácter de la línea lógica. Sólo fun- 
ciona desde el teclado, es decir, con 
CTRL+N. 

Códigos 15, 16 y 17: No se utilizan en 
los ordenadores MSX. 

Código 18: Este código indica el inicio 
de inserción. El cursor se reduce a la mi- 
tad, y todos los caracteres tecleados se in- 
sertarán en la posición del cursor, 
desplazando los ya existentes hacia la de- 
recha. La repetición de este código anula 
el modo de inserción. Sólo funciona des- 
de el teclado, con CTRL+R, o bien con 
la tecla INS. 

Códigos 19 y 20: No se utilizan en los 
MSX. 

Código 21: Borra la totalidad de la lí- 
nea donde está situado el cursor. Sólo fun- 
ciona desde teclado, con CTRL + U. 

Códigos 22, 23, 24, 25 y 26: No utili- 
zados por los MSX. 

Código 27: (ESCAPE) Inicia una se- 
cuencia de ESCAPE. 

Código 28: Desplaza el cursor una po- 
sición a la derecha. Este código, y todos 
los siguientes, funcionan tanto desde el te- 
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MSX por dentro 



— 



ciado (con las teclas de cursor) como por programa, con PRINT 
CHR$(28);. 

Código 29: Desplaza el cursor una posición a la izquierda. 

Código 30: Desplaza el cursor una posición hacia arriba, deteniéndose 
si alcanza el borde superior de la pantalla. 

Código 31: Desplaza el cursor una posición hacia abajo, deteniéndose 
si alcanza el borde inferior de la pantalla. 

Y aquí finaliza este amplio repaso a los códigos de control del MSX. 
Sólo nos queda repasar un pequeño detalle. ¿Cómo los utilizamos en nues- 
tro ordenador? 

Para utilizarlos no tenemos más que decirle al ordenador que escriba 
en la pantalla (o impresora) el código deseado. Evidentemente muchos 
de estos códigos no funcionarán en vuestra impresora (borrar pantalla por 
ejemplo), por lo que deberéis consultar el manual de la impresora para 
una mayor información. En BASIC, esto seria: 

PRINT CHR$(nn), siendo nn en código que queremos utilizar, o bien 
LPRINT CHR$(nn), si queremos utilizarlos en nuestra impresora. 

Si queremos hacerlo en ensamblador, por medio de las rutinas de la BIOS, 
deberíamos hacer: 



XOR A; 
LD (#F416), A; 
LD A, nn; 
RST # 18; 
RET; 
o en impresora: 
LD A,l; 
LD (#F416), A; 
LD A, nn; 
RST #18; 
RET 

o en PASCAL: 
BEGIN 

WRITE (CHR(nn)) 
END; 



Pongo un cero en el acumulador. 
PRTFLG = 0 (Salidas a pantalla). 
Cargo en el acumulador el código 
Imprime. 



Pongo un uno en el acumulador. 
PRTFLG=1 (Salidas a impresora). 
Cargo en el acumulador el código 
Imprime. 




Conviértete en el más valiente pilo- 
to interestelar. Libra una especta- 
cular batalla y atraviesa el hiperes- 
pació. Destruye bunkers, minas 
mortales y naves agresoras. Tu des- 
treza y tus misiles puedan salvar la 
vida de los Hornos tiranizados por 
Darus. 

STAR RUNNER ES UN JUEGO 
SENSACIONAL 
Producido por 
Manhattan Transfcr, S.A. 
Roca i Batlle, 10-12 
08023 Barcelona 



PROGRAMAS MSX 



TODOS LOS 

PROGRAMAS 
DEL CLUB 



He aquí una lista con todos los 
programas aparecidos en la revis- 
ta, agrupados por temas, con el nú- 
mero de la revista en que apare- 
cieron. 



PROGRAMAS DE UTILIDADES: | 


AGENDA 


5 


AGENDA 


8 


BIBLIOTECA 


14 


BIORRITMOS 


3/4 


CARTA POR ORDENADOR 


7 


CODIFICADOR DE 




RESISTENCIA 


11 


CODIGO MORSE 


12 


CONTROL DE GASTOS 




CASEROS 


16/17 


CONVERSION 


18 


DESENSAMBLADOR Z-80 


16/17 




DIBUJA SPRITES 
DISEÑADOR DE SPRITES 
LOTERIA PRIMITIVA 
LOTO 
METABOL 
PON EN HORA TU 

ORDENADOR 
PROTEX 
QUINIELA 
RELOJ 



16/17 
9/10 
20 
3/4 
2 

14 
14 

7 

3/4 



PROGRAMAS DE GRAFICOS 



ARTISTA 


9/10 


AYUGRAF 


20 


CURVAS DE LISSAJOUS 


20 


ESTRELLA DEL DESIERTO 


3/4 


GRAF-1 


21 


GRAF-2 


21 


GRAFICOS 


2 


GRAFICOS 


3/4 


GRAFICOS 


5 


GRAFICOS Y SONIDO 


6 


LAPIZ MSX 


7 




PERSPECTIVA CONICA 
TRAZOS 



18 
18 



PROGRAMAS DE MUSICA: 



CUANDO LOS SANTOS VAN 

MARCHANDO 3/4 
MINUETO EN LA MENOR 19 




SINTETIZADOR 



ELECTRONICO 


6 


PROGRAMAS EDUCATIVOS: 


ABC 


5 


COMETA HALLEY 


13 


EUROPA 


2 


FISICA 


8 


L'ARTICLE DETERMINE 


14 


LLAMADA OCULTA 


8 


MATEMATICAS 


9/10 


MOTOR DE EXPLOSION 


5 


PAISES 


15 


TEORIA QUIMICA 


21 


TEST MONOGRAFICO 


13 



PROGRAMAS DE JUEGOS: 



4 EN RAYA 19 

ACOSO EN NICARAGUA 12 

ADIVINA EL NUMERO 7 

AGUILA ESPACIAL 3/4 

ALUNIZAJE 2 

ASALTO A LA FORTALEZA 9/10 

BARCELONA OLIMPICA 3/4 

BOMBA LOCA 18 

CAPTURA EN PLUTON 1 

CARRERA DE COCHES 1 

CARRERAS DE CABALLOS 1 
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Fomenta la creatividad. Respeta el dere- 
cho de autor. Centenario de la conven- 
ción de Berna 1886-1986. 



Condiciones: 

Toda denuncia para esta sección deberá venir suscripta con 
los datos personales del denunciante, aunque su nombre no 
aparecerá publicado. 

— Deberá aportarse toda documentación que acredite el 
objeto de la denuncia, de lo contrario no se tendrá en cuenta. 

— La documentación recibida se hará llegar a la marca afec- 
tada para que tome las medidas jurídicas oportunas. 

— Una vez publicada la denuncia, ya no se tendrán en cuen- 
ta las que lleguen posteriormente sobre el mismo programa. 

— Los denunciantes recibirán como recompensa el progra- 
ma original denunciado. 

— Recordamos que se considera piratería la desprotección y 
copia de programas en cualquier formato y su uso con fines 
de lucro. 




«EL POLI», editado en cassette por STARS es 
presuntamente una copia ilegal del programa 
«PUNCHY», producido por MICRO BYTE y 
comercializado por Philips. 



PROGRAMAS MSX 



CARRETERA 
CAVERNOUS 
CRAZY JUMPER 
DAMAS 
DDT 

EL AHORCADO 
EL BORRA 
EL COMEBICHOS 
EL DARDO 
EL GUSANO 
EL OTHELLO 



3/4 
9/10 
12 
13 
6 
2 

9/10 
3/4 
8 
1 
5 




EL PERAL 6 

EL RODILLO CHIFLADO 5 

EL TESORO DE SANDOKAN E.S. 

GOLF 3/4 

JET MONSTER 1 

JUEGO DE DADOS 5 

KEY UP 16/17 

LA BRISCA 21 
LA DIANA DE ROBIN HOOD 7 

LA GALLINA CIEGA 11 

LA GEMA NEGRA 18 

LA GUIA 21 

LA MANSION DE DRACULA 14 

LA PIRAMIDE 6 

LA RULETA 1 

MASTERMIND 1 

MEMORY 16/17 

MENU 3/4 

MERXE 21 

MISION JUNGLA 13 

NOX FALCON 6 

NUEVE POR NUEVE 1 

PAIS DEL CHOLLO 16/17 

PALOMITAS 15 

PAREJAS 9/10 

PHANTOM 19 

POKER 9/10 

REBOTES 1 

RESCATE LUNAR 15 

ROMPEMUROS 5 

SALTA CUBOS 11 

ES: ESPECIAL SOFTWARE 
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MOLECULE MAN 

Perdido en un laberinto de 
256 habitaciones lucha en con- 
tra del tiempo y las radiaciones 
letales para teleportarte a 
lugar seguro. También incluido 
en esta cinta un único y fácil 
de utilizar, sistema de constru- 
cción de laberintos, que te 
permitirá corregir el existente 
o crear otros nuevos. 

MSX 

COMMODORE 




SPEED KING 

El juego de carreras de Moto 
.cicletas con la emocionante 
acción de correr rueda con 
■ rueda contra otros 19 pilotos 
¡Ponte el casco y vive la inol- 
vidable aventura de las motos 
de altas prestaciones compi- 
tiendo a 250 millas a la hora! 



MSX ■ 
AMSTRAD 

SPECTRUM 



MSX 
AMSTRAD 
SPECTRUM 




KNIGHT TYME 

La tercera de la serie de aven- 
turas Magic Knight, se encon- 
tró a sí mismo transportado 
al siglo 25 abordo de la nave 
estelar PISCIS. El juego utili- 
za un sistema mejorado de 
animación, que fue utilizado 
por primera vez en Spellbound. 
¿Será éste el fin de Magic 
Knight?. 

SERIE M.A.D.: P.V.P. 1.100 PTAS. 



MSX 
AMSTRAD 
SPECTRUM 




FORMULA 1 

El juego de competición de 
mayor realismo, con los diez 
circuitos más famosos; 
SI LVERSTONE, MONACO, 
MONZA... etc. 

¡3, 2, 1... Adelante! 




CHILLER 

En una fría noche de Luna llena 
intentarás salvar a tu chica 
enfrentándote a cadáveres 
vivientes, arañas, espectros 
y murciélagos. 
(Animo y recoge todas las 
cruces que puedas! 




SPACE WALK 

Eres un astronauta al mando 
de la Lanzadora Espacial. 
Desde tu base en la luna vigilas 
los satélites, descarriados y 
tienes que recuperarlos. Tra- 
baja por la superficie de la luna 
y cuando sea necesario utiliza 
el JET PAC K para propulsarte 
al satélite. 

Licencia exclusiva para ESPAÑA ORO SOR 
Fundadores, 3 ■ 28028 MADRID 
Tek. 255 45 00/09 



La nueva generación de ordenadores 



MITSUBISHI 

MSX 2 COMPUTER SYSTEMS 



Generación MSX2 




Un Ordenador para hoy... y para siempre 





GALERIAS 



Marcando estilo. 



